Changeset 40 for branches/DelphiToC/UMainForm.pas

Timestamp:

Aug 5, 2010, 11:32:36 AM (14 years ago)

Author:

george

Message:

Parser classes inheriting pascal source tree classes rewrited using class methods and source tree as parametr. This solve problem "class x not related to y.".

File:

• branches/DelphiToC/UMainForm.pas (modified) (1 diff)

branches/DelphiToC/UMainForm.pas

@@ -113 +113 @@
           if TObject(Code.Commands[I]) is TWhileDo then begin
             NewNode2 := AddChild(NewNode, 'While-Do');
+            NewNode3 := AddChild(NewNode2, 'Podmínka');
+
+            NewNode3 := AddChild(NewNode2, 'Povel');
           end else
           if TObject(Code.Commands[I]) is TAssignment then begin