Changeset 7 for branches/Void/UMainForm.pas

Timestamp:

Nov 9, 2009, 9:21:28 AM (15 years ago)

Author:

george

Message:

• Upraveno: Oddělení modelu a generátoru kódu.

File:

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

branches/Void/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  StdCtrls, UCompilator;
+  StdCtrls, UCompilator, UOutputGenerator;
 
 const
@@ -13 +13 @@
 
 type
-
-  { TMainForm }
-
   TMainForm = class(TForm)
     ButtonCompile: TButton;
@@ -69 +66 @@
   with Compilator do begin
     SourceCode.Assign(Memo1.Lines);
+    Generator := TPascalGenerator.Create;
     Compile;
-    Memo2.Lines.Assign(Output);
+    Memo2.Lines.Assign(Generator.Output);
   end;
 end;