Changeset 45 for branches/DelphiToC/Analyze/UPascalParser.pas

Timestamp:

Aug 9, 2010, 10:34:09 AM (14 years ago)

Author:

george

Message:

Fixed comparasion of name of identificators as types, variables, consts, methods using lowercase.

File:

• branches/DelphiToC/Analyze/UPascalParser.pas (modified) (2 diffs)

branches/DelphiToC/Analyze/UPascalParser.pas

@@ -10 +10 @@
 
 type
-  EEndOfData = class(Exception);
-
-  TBaseParser = class;
-
   TOnErrorMessage = procedure (Text: string) of object;
 
@@ -543 +539 @@
 begin
   with SourceCode do begin
-    ParseModule(TModule(Modules[0]));
+    for I := 0 to Modules.Count - 1 do
+      ParseModule(TModule(Modules[I]));
   end;
 end;