Changeset 542 for cprs/branches/GUI-config/LookupU.pas

Timestamp:

Aug 12, 2009, 7:34:51 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

v1.1 Fixes Access/Verify code issues

File:

• cprs/branches/GUI-config/LookupU.pas (modified) (2 diffs)

cprs/branches/GUI-config/LookupU.pas

@@ -48 +48 @@
     //procedure InitORComboBox(ORComboBox: TORComboBox; initValue : string);
     procedure PrepForm(FileNum,InitValue : string);
-    function SubSetOfFile(FileNum: string; const StartFrom: string; 
+    function SubSetOfFile(FileNum: string; const StartFrom: string;
                           Direction: Integer): TStrings;
   end;
@@ -58 +58 @@
 
 uses
-ORNet, ORFn, Trpcb, QControls, MainU;
+ORNet, ORFn,
+Trpcb,   //needed for .ptype types
+QControls, MainU;
 {$R *.dfm}
 
   procedure TFieldLookupForm.ORComboBoxNeedData(Sender: TObject;
-                                                const StartFrom: String; 
+                                                const StartFrom: String;
                                                 Direction, InsertAt: Integer);
   var
-    Result : TStrings;                                                
+    Result : TStrings;
   begin
     Result := SubSetOfFile(FFileNum, StartFrom, Direction);