Changeset 16 for branches/Void/UMainForm.pas

Timestamp:

Nov 10, 2009, 10:27:21 AM (15 years ago)

Author:

george

Message:

• Upraveno: Rozdělení jednotek pro generování výstupů do samostatných souborů.
• Přidáno: Generátor kódu pro procesor Z80.
• Přidáno: Parsování celých čísel.

File:

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

branches/Void/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
   StdCtrls, ComCtrls, SynHighlighterPas, SynEdit, SynHighlighterCpp,
-  UCompilator, UOutputGenerator, UModelViewer;
+  UCompilator, UOutputGenerator, UModelViewer, UPascalGenerator, UCGenerator,
+  UZ80Generator;
 
 const
@@ -35 +36 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure SynEdit2Change(Sender: TObject);
   private
     SourceCode: TMemoryStream;
@@ -55 +57 @@
   SynEdit1.Lines.LoadFromFile(SourceFileName);
   ButtonCompileClick(Self);
+end;
+
+procedure TMainForm.SynEdit2Change(Sender: TObject);
+begin
+
 end;
 
@@ -88 +95 @@
       Generator := TPascalGenerator.Create;
       SynEdit2.Highlighter := SynPasSyn1;
-    end else begin
+    end else
+    if ComboBox1.ItemIndex = 1 then begin
       Generator := TCGenerator.Create;
+      SynEdit2.Highlighter := SynCppSyn1;
+    end else
+    if ComboBox1.ItemIndex = 2 then begin
+      Generator := TZ80Generator.Create;
       SynEdit2.Highlighter := SynCppSyn1;
     end;