Changeset 6 for trunk/UInterpreterForm.pas

Timestamp:

Feb 9, 2012, 3:22:38 PM (12 years ago)

Author:

chronos

Message:

• Modified: Interpretter now wait for key press if Read instruction is executed and no input character is available.
• Added: Actions to control program executions.

File:

• trunk/UInterpreterForm.pas (modified) (4 diffs)

trunk/UInterpreterForm.pas

@@ -36 +36 @@
     Splitter2: TSplitter;
     Timer1: TTimer;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
     procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
+    procedure MemoInputKeyPress(Sender: TObject; var Key: char);
     procedure Timer1Timer(Sender: TObject);
   private
@@ -42 +47 @@
   public
     procedure RefreshListViewMemory;
+    procedure UpadateInterface;
   end;
 
@@ -71 +77 @@
 end;
 
+procedure TInterpreterForm.UpadateInterface;
+begin
+  MainForm.UpdateInterface;
+end;
+
 procedure TInterpreterForm.ListViewMemoryData(Sender: TObject; Item: TListItem);
 var
@@ -86 +97 @@
 end;
 
+procedure TInterpreterForm.MemoInputKeyPress(Sender: TObject; var Key: char);
+begin
+  with MainForm.BrainFuckInterpreter do Input := Input + Key;
+end;
+
 end.