Changeset 128 for branches/generator/URules.pas

Timestamp:

Nov 30, 2017, 6:33:17 PM (7 years ago)

Author:

chronos

Message:

• Modified: Show char length of rule.

File:

• branches/generator/URules.pas (modified) (1 diff)

branches/generator/URules.pas

@@ -537 +537 @@
 function TRuleItem.GetCharLength: Integer;
 begin
+  Result := 0;
+  if not Optional then
   case RuleItemType of
     ritTerminal: Result := Length(Terminal);
-    ritNonTerminal: Result := Length(NonTerminal.Name);
+    //ritNonTerminal: Result := NonTerminal.Items.GetCharLength;
     ritSubItems: Result := SubItems.GetCharLength;
     ritTerminalRange: Result := Max(Length(TerminalFrom), Length(TerminalTo))