Changeset 32 for trunk/Forms/UInterpretterForm.pas

Timestamp:

Feb 18, 2012, 8:44:10 PM (13 years ago)

Author:

chronos

Message:

• Modified: Target specific options is maintained by target class in registry.
• Modified: Integer index TargetIndex replaced by object reference CurrentTarget.

File:

• trunk/Forms/UInterpretterForm.pas (modified) (4 diffs)

trunk/Forms/UInterpretterForm.pas

@@ -64 +64 @@
 
 uses
-  UMainForm;
+  UMainForm, UTargetInterpretter;
 
 {$R *.lfm}
@@ -75 +75 @@
 procedure TInterpreterForm.Timer1Timer(Sender: TObject);
 begin
-  LabelProgramPointer.Caption := IntToStr(MainForm.BrainFuckInterpreter.SourcePosition);
-  LabelMemoryPointer.Caption := IntToStr(MainForm.BrainFuckInterpreter.MemoryPosition);
-  LabelStepCounter.Caption := IntToStr(MainForm.BrainFuckInterpreter.StepCount);
-  LabelStepSpeed.Caption := IntToStr(MainForm.BrainFuckInterpreter.StepCount - LastStepCounter) + SStepsPerSecond;
-  LastStepCounter := MainForm.BrainFuckInterpreter.StepCount;
+  if MainForm.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(MainForm.CurrentTarget) do begin
+    LabelProgramPointer.Caption := IntToStr(SourcePosition);
+    LabelMemoryPointer.Caption := IntToStr(MemoryPosition);
+    LabelStepCounter.Caption := IntToStr(StepCount);
+    LabelStepSpeed.Caption := IntToStr(StepCount - LastStepCounter) + SStepsPerSecond;
+    LastStepCounter := StepCount;
+    MemoOutput.Lines.Text := Output;
+  end;
   RefreshListViewMemory;
-  MemoOutput.Lines.Text := MainForm.BrainFuckInterpreter.Output;
 end;
 
 procedure TInterpreterForm.RefreshListViewMemory;
 begin
-  ListViewMemory.Items.Count := Trunc(Length(MainForm.BrainFuckInterpreter.Memory) / RowSize);
-  ListViewMemory.Refresh;
+  if MainForm.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(MainForm.CurrentTarget) do begin
+    ListViewMemory.Items.Count := Trunc(Length(Memory) / RowSize);
+    ListViewMemory.Refresh;
+  end;
 end;
 
@@ -100 +106 @@
   I: Integer;
 begin
-  with MainForm.BrainFuckInterpreter do
+  if MainForm.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(MainForm.CurrentTarget) do
   if (Item.Index >= 0) and (Item.Index < Trunc(Length(Memory) / RowSize)) then begin
     Item.Caption := IntToHex(Item.Index * RowSize, 8);
@@ -122 +129 @@
 procedure TInterpreterForm.MemoInputKeyPress(Sender: TObject; var Key: char);
 begin
-  with MainForm.BrainFuckInterpreter do Input := Input + Key;
+  if MainForm.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(MainForm.CurrentTarget) do
+    Input := Input + Key;
 end;