Changeset 18 for trunk/UInterpreterForm.pas

Timestamp:

Feb 11, 2012, 9:32:25 PM (13 years ago)

Author:

chronos

Message:

• Modified: Optimalized execution of BrainFuck commands using array of methods instead of case statement. This can scale better for future additional commands.
• Added: Interpretter form show speed in steps per second.

File:

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

trunk/UInterpreterForm.pas

@@ -22 +22 @@
     Label4: TLabel;
     Label6: TLabel;
+    Label7: TLabel;
     LabelStepCounter: TLabel;
     LabelProgramPointer: TLabel;
     Label5: TLabel;
     LabelMemoryPointer: TLabel;
+    LabelStepSpeed: TLabel;
     ListViewMemory: TListView;
     MemoInput: TMemo;
@@ -44 +46 @@
     ToolButton6: TToolButton;
     ToolButton7: TToolButton;
+    procedure FormHide(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
     procedure MemoInputKeyPress(Sender: TObject; var Key: char);
     procedure Timer1Timer(Sender: TObject);
   private
-    { private declarations }
+    LastStepCounter: Integer;
   public
     procedure RefreshListViewMemory;
@@ -64 +68 @@
 {$R *.lfm}
 
+resourcestring
+  SStepsPerSecond = ' steps/s';
+
 { TInterpreterForm }
 
@@ -71 +78 @@
   LabelMemoryPointer.Caption := IntToStr(MainForm.BrainFuckInterpreter.MemoryPosition);
   LabelStepCounter.Caption := IntToStr(MainForm.BrainFuckInterpreter.StepCount);
+  LabelStepSpeed.Caption := IntToStr(MainForm.BrainFuckInterpreter.StepCount - LastStepCounter) + SStepsPerSecond;
+  LastStepCounter := MainForm.BrainFuckInterpreter.StepCount;
   RefreshListViewMemory;
   MemoOutput.Lines.Text := MainForm.BrainFuckInterpreter.Output;
@@ -101 +110 @@
 end;
 
+procedure TInterpreterForm.FormHide(Sender: TObject);
+begin
+  Timer1.Enabled := False;
+end;
+
+procedure TInterpreterForm.FormShow(Sender: TObject);
+begin
+  Timer1.Enabled := True;
+end;
+
 procedure TInterpreterForm.MemoInputKeyPress(Sender: TObject; var Key: char);
 begin