Changeset 43 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Aug 5, 2010, 4:17:18 PM (14 years ago)

Author:

george

Message:

End parsing process on reaching data end.

File:

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

branches/DelphiToC/UPascalSource.pas

@@ -32 +32 @@
   TVariable = class;
   TConstant = class;
+  TModule = class;
 
   TDevice = class
@@ -252 +253 @@
   end;
 
+  TUsedModule = class
+    Name: string;
+    Module: TModule;
+  end;
+
+  TUsedModuleList = class(TObjectList)
+  end;
+
   TModule = class(TCommonBlock)
   public
     ModuleType: TModuleType;
-    UsedModules: TObjectList; // TObjectList<TModule>
+    UsedModules: TUsedModuleList;
     constructor Create; override;
     procedure Clear;
@@ -349 +358 @@
 begin
   inherited;
-  UsedModules := TObjectList.Create;
+  UsedModules := TUsedModuleList.Create;
 end;