Changeset 32 for trunk/Target/UTargetInterpretter.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/Target/UTargetInterpretter.pas (modified) (7 diffs)

trunk/Target/UTargetInterpretter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs, Forms, StrUtils, UTarget;
+  Classes, SysUtils, Dialogs, Forms, StrUtils, UTarget, Registry, URegistry;
 
 type
   TTargetInterpretter = class;
-
-
-  TRunState = (rsStopped, rsPaused, rsRunning);
 
   { TTargetInterpretterThread }
@@ -31 +28 @@
   private
     FCellSize: Integer;
-    FOnChangeState: TNotifyEvent;
-    FState: TRunState;
     FThreadState: Boolean;
     FThread: TTargetInterpretterThread;
@@ -39 +34 @@
     function GetMemorySize: Integer;
     procedure SetMemorySize(AValue: Integer);
-    procedure SetSource(AValue: string);
     procedure SetState(AValue: TRunState);
     procedure SetThread(State: Boolean);
@@ -51 +45 @@
     procedure CommandLoopStart;
     procedure CommandLoopEnd;
+  protected
+    procedure SetSource(AValue: string); override;
   public
     FSource: array of TBrainFuckCommand;
@@ -67 +63 @@
     procedure Pause; override;
     procedure Stop; override;
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
-    property State: TRunState read FState;
-    property OnChangeState: TNotifyEvent read FOnChangeState write FOnChangeState;
+    procedure LoadFromRegistry(Root: HKEY; Key: string); override;
+    procedure SaveToRegistry(Root: HKEY; Key: string); override;
     property StepCount: Integer read FStepCount;
-    property Source: string write SetSource;
     property MemorySize: Integer read GetMemorySize write SetMemorySize;
     property CellSize: Integer read FCellSize write FCellSize;
@@ -284 +279 @@
 constructor TTargetInterpretter.Create;
 begin
+  inherited;
   Name := 'Interpretter';
   Capabilities := [tcRun, tcPause, tcStop];
@@ -305 +301 @@
 end;
 
+procedure TTargetInterpretter.LoadFromRegistry(Root: HKEY; Key: string);
+begin
+  inherited LoadFromRegistry(Root, Key);
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key, True);
+    CellSize := ReadIntegerWithDefault('CellSize', 256);
+    MemorySize := ReadIntegerWithDefault('MemorySize', 30000);
+  finally
+    Free;
+  end;
+end;
+
+procedure TTargetInterpretter.SaveToRegistry(Root: HKEY; Key: string);
+begin
+  inherited SaveToRegistry(Root, Key);
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key, True);
+    WriteInteger('CellSize', CellSize);
+    WriteInteger('MemorySize', MemorySize);
+  finally
+    Free;
+  end;
+end;
+
 end.