Changeset 14 for branches/DelphiToC/UMainForm.pas

Timestamp:

Apr 9, 2009, 11:04:41 AM (16 years ago)

Author:

george

Message:

• Opraveno: Chyby v uvolňování paměti.
• Opraveno: Program po rozdělení do více souborů opět funguje jako dříve.

File:

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

branches/DelphiToC/UMainForm.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UPascalSource;
+  Dialogs, StdCtrls, UPascalSource, UPascalCompiler, UAssemblerSource;
 
 type
@@ -38 +38 @@
   I: Integer;
 begin
-  Compiler.Compile(Memo1.Lines);
+  MainForm.Memo3.Clear;
+  Compiler.SourceCode.Assign(Memo1.Lines);
+  Compiler.Compile;
   Memo2.Clear;
-  for I := 0 to Compiler.AssemblyCode.Count - 1 do
-    Memo2.Lines.Add(TAssemblerLine(Compiler.AssemblyCode[I]).AsString);
+  with TAssemblerProducer(Compiler.Producer) do
+  for I := 0 to AssemblyCode.Count - 1 do
+    Memo2.Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
 end;
 
@@ -66 +69 @@
 
 procedure TMainForm.FormShow(Sender: TObject);
-var
-  I: Integer;
 begin
   Memo1.Lines.LoadFromFile('Example.pas');
-  MainForm.Memo3.Clear;
-  Compiler.Compile(Memo1.Lines);
-  Memo2.Clear;
-  for I := 0 to Compiler.AssemblyCode.Count - 1 do
-    Memo2.Lines.Add(TAssemblerLine(Compiler.AssemblyCode[I]).AsString);
+  Button1Click(Self);
 end;