Function

FindOrderText

Module

fODReleaseEvent

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

ExecuteReleaseEventOrders

Declaration

function FindOrderText(const AnID: string): string;

Called-By Hierarchy


                FindOrderText
  ExecuteReleaseEventOrders┘ 
TfrmOrders.mnuActRelClick┘   

Called-By

Name Declaration Comments
ExecuteReleaseEventOrders function ExecuteReleaseEventOrders(AnOrderList: TList): boolean; -


Source

67    function FindOrderText(const AnID: string): string;
68    var
69      i: Integer;
70    begin
71      Result := '';
72      with AnOrderList do for i := 0 to Count - 1 do
73        with TOrder(Items[i]) do if ID = AnID then
74        begin
75          Result := Text;
76          Break;
77        end;
78    end;