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

Timestamp:

Dec 19, 2017, 4:56:34 PM (7 years ago)

Author:

chronos

Message:

• Modified: Generate rules either to tokenizer and parser.

File:

• branches/generator/Forms/UFormRules.pas (modified) (3 diffs)

branches/generator/Forms/UFormRules.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, ActnList, Menus, URules, UListViewSort;
+  ComCtrls, ActnList, Menus, UGrammer, UListViewSort;
 
 type
@@ -147 +147 @@
     Item.SubItems.Add(Items.GetString);
     Item.SubItems.Add(IntToStr(Items.GetCharLength));
+    Item.SubItems.Add(RuleLevelText[Level]);
   end;
 end;
@@ -175 +176 @@
       1: Result := CompareString(BooleanText[TRule(Item1).CreateSourceNode], BooleanText[TRule(Item2).CreateSourceNode]);
       2: Result := CompareString(TRule(Item1).GetString, TRule(Item2).GetString);
+      3: Result := CompareInteger(TRule(Item1).Items.GetCharLength,
+        TRule(Item2).Items.GetCharLength);
+      4: Result := CompareString(RuleLevelText[TRule(Item1).Level],
+        RuleLevelText[TRule(Item2).Level]);
     end;
     if ListViewSort1.Order = soDown then Result := -Result;