Changeset 46 for branches/DelphiToC/UMainForm.pas

Timestamp:

Aug 9, 2010, 11:22:45 AM (14 years ago)

Author:

george

Message:

Added pascal producer code.
Added selection combobox for producer type.

File:

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

branches/DelphiToC/UMainForm.pas

@@ -8 +8 @@
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, UPascalSource, UPascalCompiler, UAssemblerSource,
-  UCSource, ComCtrls, USourceTree;
+  UProducerC, ComCtrls, SynEdit, SynHighlighterPas, USourceTree,
+  UProducerPascal;
 
 const
@@ -14 +15 @@
 
 type
+
+  { TMainForm }
+
   TMainForm = class(TForm)
-    Memo1: TMemo;
     Button1: TButton;
+    ComboBox1: TComboBox;
     Memo2: TMemo;
     Memo3: TMemo;
+    SynEdit1: TSynEdit;
+    SynPasSyn1: TSynPasSyn;
     TreeView1: TTreeView;
+    procedure ComboBox1Change(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -46 +53 @@
 begin
   MainForm.Memo3.Clear;
-  Compiler.SourceCode.Assign(Memo1.Lines);
-  Compiler.Compile;
+  Compiler.SourceCode.Assign(SynEdit1.Lines);
+
+  Memo2.Clear;
+  if ComboBox1.ItemIndex = 0 then begin
+    Compiler.Producer.Free;
+    Compiler.Producer := TProducerPascal.Create;
+    Compiler.Producer.ProgramCode := Compiler.ProgramCode;
+    Compiler.Compile;
+    with TProducerPascal(Compiler.Producer) do
+      Memo2.Lines.Assign(TextSource);
+  end else
+  if ComboBox1.ItemIndex = 1 then begin
+    Compiler.Producer.Free;
+    Compiler.Producer := TCProducer.Create;
+    Compiler.Producer.ProgramCode := Compiler.ProgramCode;
+    Compiler.Compile;
+    with TCProducer(Compiler.Producer) do
+      Memo2.Lines.Assign(TextSource);
+  end else
+  if ComboBox1.ItemIndex = 2 then begin
+    Compiler.Producer.Free;
+    Compiler.Producer := TAssemblerProducer.Create;
+    Compiler.Producer.ProgramCode := Compiler.ProgramCode;
+    Compiler.Compile;
+    with TAssemblerProducer(Compiler.Producer) do
+    for I := 0 to AssemblyCode.Count - 1 do
+      Memo2.Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
+  end;
+
   SourceTree.TreeView := TreeView1;
   SourceTree.Code := Compiler.ProgramCode;
   SourceTree.Fill;
-  Memo2.Clear;
-  if Compiler.Producer is TAssemblerProducer then begin
-    with TAssemblerProducer(Compiler.Producer) do
-    for I := 0 to AssemblyCode.Count - 1 do
-      Memo2.Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
-  end else
-  if Compiler.Producer is TCProducer then begin
-    with TCProducer(Compiler.Producer) do
-      Memo2.Lines.Assign(TextSource);
-  end;
 end;
 
@@ -70 +94 @@
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  Memo1.Lines.SaveToFile(ExampleFileName);
+  SynEdit1.Lines.SaveToFile(ExampleFileName);
 end;
 
@@ -89 +113 @@
 begin
   WindowState := wsMaximized;
-  Memo1.Lines.LoadFromFile(ExampleFileName);
+  SynEdit1.Lines.LoadFromFile(ExampleFileName);
+  Button1Click(Self);
+end;
+
+procedure TMainForm.ComboBox1Change(Sender: TObject);
+begin
   Button1Click(Self);
 end;