Changeset 117 for branches/generator/Forms/UFormRules.pas

Timestamp:

Nov 27, 2017, 1:09:38 PM (7 years ago)

Author:

chronos

Message:

• Added: Rule can be set as optional or repetitive.
• Added: Support for nested rule item sublist.

Location:

branches/generator

Files:

• . (modified) (1 prop)
• Forms/UFormRules.pas (modified) (5 diffs)

branches/generator

@@ -2 +2 @@
 generator.lps
 lib
+heaptrclog.trc

@@ -2 +2 @@
 generator.lps
 lib
+heaptrclog.trc

branches/generator/Forms/UFormRules.pas

@@ -73 +73 @@
   NewRule := TRule.Create;
   NewRule.Grammer := Rules.Grammer;
+  FormRule := TFormRule.Create(nil);
   FormRule.LoadData(NewRule);
   if FormRule.ShowModal = mrOk then begin
@@ -79 +80 @@
     ReloadList;
   end else FreeAndNil(NewRule);
+  FreeAndNil(FormRule);
 end;
 
@@ -84 +86 @@
 var
   Rule: TRule;
+  FormRule: TFormRule;
 begin
   Rule := TRule(ListView1.Selected.Data);
+  FormRule := TFormRule.Create(nil);
   FormRule.LoadData(Rule);
   if FormRule.ShowModal = mrOk then begin
@@ -91 +95 @@
     ReloadList;
   end;
+  FreeAndNil(FormRule);
 end;
 
@@ -118 +123 @@
     Item.Caption := Rules[Item.Index].Name;
     Item.Data := Rules[Item.Index];
-    Item.SubItems.Add(Rules[Item.Index].Items.GetBNF(Rules[Item.Index].Items.RuleType));
+    Item.SubItems.Add(Rules[Item.Index].Items.GetBNF);
   end;
 end;

@@ -2 +2 @@
 generator.lps
 lib
+heaptrclog.trc