Changeset 38 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Aug 5, 2010, 8:47:21 AM (14 years ago)

Author:

george

Message:

Modified parsing mechanism of some blocks.
Error messages rewrited as resource strings.

File:

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

branches/DelphiToC/UPascalSource.pas

@@ -6 +6 @@
 
 uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, Contnrs;
 
@@ -45 +45 @@
 
   TCommand = class
-    Parent: TObject;
-
+    CommonBlock: TCommonBlock;
   end;
 
@@ -62 +61 @@
   TBeginEnd = class(TCommand)
     Commands: TCommandList;
+    CommonBlock: TCommonBlock;
     procedure Clear;
     constructor Create;
@@ -201 +201 @@
 
   TExpression = class
+    CommonBlock: TCommonBlock;
     NodeType: TNodeType;
     Variable: TVariable;
@@ -377 +378 @@
   Methods.Parent := Self;
   Code := TBeginEnd.Create;
+  Code.CommonBlock := Self;
 end;
 
@@ -580 +582 @@
 constructor TCaseOfEnd.Create;
 begin
+  inherited;
   Branches := TObjectList.Create
 end;