Changeset 8 for branches/Void/UMainForm.pas

Timestamp:

Nov 9, 2009, 9:47:57 AM (15 years ago)

Author:

george

Message:

• Upraveno: Zobecněno uchování definic parametrických povelů v bloku BeginEnd pro potřeby generování do různých jazyků.

File:

• branches/Void/UMainForm.pas (modified) (2 diffs)

branches/Void/UMainForm.pas

@@ -13 +13 @@
 
 type
+
+  { TMainForm }
+
   TMainForm = class(TForm)
     ButtonCompile: TButton;
+    ComboBox1: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
@@ -66 +70 @@
   with Compilator do begin
     SourceCode.Assign(Memo1.Lines);
-    Generator := TPascalGenerator.Create;
+
+    if Assigned(Generator) then Generator.Destroy;
+    if ComboBox1.ItemIndex = 0 then
+      Generator := TPascalGenerator.Create
+      else Generator := TCGenerator.Create;
     Compile;
     Memo2.Lines.Assign(Generator.Output);