Procedure

TfrmdlgProb.cbLocDropDown

Module

fProbEdt

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmdlgProb

Declaration

procedure cbLocDropDown(Sender: TObject);

Calls Hierarchy


TfrmdlgProb.cbLocDropDown
 └ClinicSearch

Calls

Name Declaration Comments
ClinicSearch function ClinicSearch(DummyArg:string): TStrings ; -


Source

1140  procedure TfrmdlgProb.cbLocDropDown(Sender: TObject);
1141  var
1142    alist: TstringList;
1143    v: string;
1144  begin
1145    v := uppercase(cbLoc.text);
1146    alist := TstringList.create;
1147    try
1148      FastAssign(ClinicSearch(' '), AList) ;
1149      if alist.count > 0 then FastAssign(Alist, cbLoc.Items);
1150    finally
1151      alist.free;
1152    end;
1153  end;