Changeset 9 for trunk/UMainForm.pas

Timestamp:

Feb 9, 2012, 4:10:10 PM (13 years ago)

Author:

chronos

Message:

• Added: Easy compiler to Delphi.

File:

• trunk/UMainForm.pas (modified) (9 diffs)

trunk/UMainForm.pas

@@ -16 +16 @@
     ACompile: TAction;
     AAbout: TAction;
+    AViewCompiled: TAction;
+    AViewInterpretter: TAction;
     AProgramPause: TAction;
     AProgramStop: TAction;
@@ -39 +41 @@
     MenuItem16: TMenuItem;
     MenuItem17: TMenuItem;
+    MenuItem18: TMenuItem;
+    MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem20: TMenuItem;
+    MenuItem40: TMenuItem;
+    MenuItem21: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -59 +66 @@
     ToolButton6: TToolButton;
     ToolButton7: TToolButton;
+    procedure ACompileExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AProgramPauseExecute(Sender: TObject);
@@ -68 +76 @@
     procedure AProjectSaveExecute(Sender: TObject);
     procedure AProgramRunExecute(Sender: TObject);
+    procedure AViewCompiledExecute(Sender: TObject);
+    procedure AViewInterpretterExecute(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
@@ -78 +88 @@
     Modified: Boolean;
     ProjectFileName: string;
+    BrainFuckCompiler: TBrainFuckCompiler;
     BrainFuckInterpreter: TBrainFuckInterpretter;
     procedure UpdateInterface;
@@ -90 +101 @@
 
 uses
-  UInterpreterForm, UApplicationInfo;
+  UInterpreterForm, UApplicationInfo, UCompiledForm;
 
 { TMainForm }
@@ -131 +142 @@
   BrainFuckInterpreter := TBrainFuckInterpretter.Create;
   BrainFuckInterpreter.OnChangeState := BrainFuckInterpreterChangeState;
+  BrainFuckCompiler := TBrainFuckCompiler.Create;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  BrainFuckCompiler.Free;
   BrainFuckInterpreter.Free;
 end;
@@ -146 +159 @@
 end;
 
+procedure TMainForm.AViewCompiledExecute(Sender: TObject);
+begin
+  CompiledForm.Show;
+end;
+
+procedure TMainForm.AViewInterpretterExecute(Sender: TObject);
+begin
+  InterpreterForm.Show;
+end;
+
 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin
+  if Modified then AProjectSaveAs.Execute;
 end;
 
@@ -153 +177 @@
 begin
   Close;
+end;
+
+procedure TMainForm.ACompileExecute(Sender: TObject);
+begin
+  BrainFuckCompiler.Source := MemoSource.Text;
+  BrainFuckCompiler.Compile;
+  CompiledForm.MemoCompiled.Text := BrainFuckCompiler.Output;
+  CompiledForm.Show;
 end;