Changeset 3 for trunk/UMainForm.pas

Timestamp:

Feb 9, 2012, 1:25:43 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Now "Hello world" example is correctly interpretted.

Location:

trunk

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (3 diffs)

trunk

@@ -1 +1 @@
 lib
+LazFuckIDE.exe

@@ -1 +1 @@
 lib
+LazFuckIDE.exe

trunk/UMainForm.pas

@@ -52 +52 @@
     ToolButton6: TToolButton;
     ToolButton7: TToolButton;
+    procedure AExitExecute(Sender: TObject);
     procedure ARunExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -81 +83 @@
 begin
   BrainFuckInterpreter := TBrainFuckInterpreter.Create;
-  BrainFuckInterpreter.Source := MemoSource.Lines;
+end;
+
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  BrainFuckInterpreter.Free;
 end;
 
@@ -87 +93 @@
 begin
   InterpreterForm.Show;
-  BrainFuckInterpreter.Input := InterpreterForm.MemoInput.Lines;
-  BrainFuckInterpreter.Output := InterpreterForm.MemoOutput.Lines;
+  BrainFuckInterpreter.Input := InterpreterForm.MemoInput.Lines.Text;
+  BrainFuckInterpreter.Source := MemoSource.Lines.Text;
   BrainFuckInterpreter.Run;
+  InterpreterForm.MemoOutput.Lines.Text := BrainFuckInterpreter.Output;
+end;
+
+procedure TMainForm.AExitExecute(Sender: TObject);
+begin
+  Close;
 end;
 

@@ -1 +1 @@
 lib
+LazFuckIDE.exe