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

Timestamp:

Aug 5, 2010, 1:17:35 PM (14 years ago)

Author:

george

Message:

Added separate unit for filling treeview with program source.

File:

• branches/DelphiToC/Analyze/UPascalParser.pas (modified) (1 diff)

branches/DelphiToC/Analyze/UPascalParser.pas

@@ -458 +458 @@
         Result.CommonBlock := SourceCode;
   //      ParseMetVariable(TMethodCall(Result).Target);
+      end else begin
+        Result := nil;
+        ErrorMessage(SUnknownIdentifier, [ReadCode]);
       end;
     end;