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

branches/generator/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Menus, ActnList, ComCtrls, UPersistentForm, URules;
+  Menus, ActnList, ComCtrls, UPersistentForm, UGrammer;
 
 type
@@ -77 +77 @@
 
 uses
-  UFormRules, UCore, UFormGrammer;
+  UFormRules, UCore, UFormGrammer, UBuilder;
 
 resourcestring
@@ -189 +189 @@
 
 procedure TFormMain.ABuildCompilerExecute(Sender: TObject);
-begin
-  Core.Grammer.BuildCompiler;
+var
+  Builder: TBuilder;
+begin
+  Builder := TBuilder.Create;
+  try
+    Builder.Grammer := Core.Grammer;
+    Builder.BuildCompiler;
+  finally
+    FreeAndNil(Builder);
+  end;
 end;