Changeset 208 for branches/interpreter2/UGenerator.pas

Timestamp:

Apr 22, 2020, 12:02:17 AM (4 years ago)

Author:

chronos

Message:

• Modified: Implemented generic access to fields in source tree.
• Added: Generator to XML.

File:

• branches/interpreter2/UGenerator.pas (modified) (3 diffs)

branches/interpreter2/UGenerator.pas

@@ -9 +9 @@
 
 type
+
+  { TGenerator }
+
   TGenerator = class
   private
@@ -17 +20 @@
     procedure AddText(Text: string);
     procedure AddTextLine(Text: string = '');
+    procedure Generate; virtual;
     property Indent: Integer read FIndent write SetIndent;
   end;
@@ -51 +55 @@
 end;
 
+procedure TGenerator.Generate;
+begin
+end;
+
 end.