Changeset 54 for branches/DelphiToC/USourceCode.pas

Timestamp:

Aug 10, 2010, 11:54:18 AM (14 years ago)

Author:

george

Message:

Added support for multiple source files and compilations for multiple modules in Project.pas

File:

• branches/DelphiToC/USourceCode.pas (modified) (3 diffs)

branches/DelphiToC/USourceCode.pas

@@ -279 +279 @@
   end;
 
+  { TModuleList }
+
+  TModuleList = class(TObjectList)
+    function Search(Name: string): TModule;
+  end;
+
   TProgram = class
     Device: TDevice;
-    Modules: TObjectList; // TObjectList<TModule>
+    Modules: TModuleList;
     constructor Create;
     destructor Destroy; override;
@@ -321 +327 @@
 begin
   Device := TDevice.Create;
-  Modules := TObjectList.Create;
+  Modules := TModuleList.Create;
 end;
 
@@ -677 +683 @@
 end;
 
+{ TModuleList }
+
+function TModuleList.Search(Name: string): TModule;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (LowerCase(TModule(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
+  if I < Count then Result := TModule(Items[I]) else Result := nil;
+end;
+
 end.