Changeset 111 for branches/generator/UCore.pas

Timestamp:

Aug 9, 2017, 12:09:47 AM (7 years ago)

Author:

chronos

Message:

• Added: RuleItem can be selected as terminal or non-terminal node.

File:

• branches/generator/UCore.pas (modified) (2 diffs)

branches/generator/UCore.pas

@@ -19 +19 @@
     { private declarations }
   public
-    Rules: TRules;
+    Grammer: TGrammer;
   end;
 
@@ -33 +33 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
-  Rules := TRules.Create;
-  Rules.LoadFromXmlFile('pascal.grm');
+  Grammer := TGrammer.Create;
+  Grammer.LoadFromXmlFile('pascal.grm');
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  Rules.SaveToXmlFile('pascal.grm');
-  FreeAndNil(Rules);
+  Grammer.SaveToXmlFile('pascal.grm');
+  FreeAndNil(Grammer);
 end;