Changeset 111 for branches/generator/Forms/UFormMain.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/Forms/UFormMain.pas (modified) (3 diffs)

branches/generator/Forms/UFormMain.pas

@@ -56 +56 @@
 procedure TFormMain.ARulesExecute(Sender: TObject);
 begin
-  FormRules.Rules := Core.Rules;
+  FormRules.Rules := Core.Grammer.Rules;
   FormRules.ShowModal;
-  MemoBNF.Lines.Text := Core.Rules.GetBNF;
+  MemoBNF.Lines.Text := Core.Grammer.GetBNF;
 end;
 
 procedure TFormMain.ASaveAsExecute(Sender: TObject);
 begin
-  SaveDialog1.FileName := Core.Rules.FileName;
+  SaveDialog1.FileName := Core.Grammer.FileName;
   if SaveDialog1.Execute then begin
-    Core.Rules.SaveToXmlFile(SaveDialog1.FileName);
+    Core.Grammer.SaveToXmlFile(SaveDialog1.FileName);
   end;
 end;
@@ -71 +71 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  MemoBNF.Lines.Text := Core.Rules.GetBNF;
+  MemoBNF.Lines.Text := Core.Grammer.GetBNF;
 end;
 
@@ -81 +81 @@
 procedure TFormMain.AOpenExecute(Sender: TObject);
 begin
-  OpenDialog1.FileName := Core.Rules.FileName;
+  OpenDialog1.FileName := Core.Grammer.FileName;
   if OpenDialog1.Execute then begin
-    Core.Rules.LoadFromXmlFile(OpenDialog1.FileName);
+    Core.Grammer.LoadFromXmlFile(OpenDialog1.FileName);
   end;
 end;