source: trunk/Compiler/Executor.pas

Last change on this file was 75, checked in by chronos, 6 months ago
  • Modified: Removed U prefix from unit names.
  • Modified: Updated Common package.
File size: 910 bytes
Line 
1unit Executor;
2
3interface
4
5uses
6 Classes, SysUtils;
7
8type
9 TRunState = (rsStopped, rsPaused, rsRunning);
10
11 { TExecutor }
12
13 TExecutor = class
14 private
15 FRunState: TRunState;
16 procedure SetRunState(AValue: TRunState);
17 public
18 ExecutorPath: string;
19 Target: TObject; // TTarget;
20 procedure Run; virtual; abstract;
21 procedure Pause; virtual; abstract;
22 procedure Stop; virtual; abstract;
23 procedure Reset; virtual; abstract;
24 procedure StepIn; virtual; abstract;
25 procedure StepOver; virtual; abstract;
26 procedure StepOut; virtual; abstract;
27 procedure RunToCursor(Pos: Integer); virtual; abstract;
28 property State: TRunState read FRunState write SetRunState;
29 end;
30
31 TExecutorClass = class of TExecutor;
32
33
34implementation
35
36{ TExecutor }
37
38procedure TExecutor.SetRunState(AValue: TRunState);
39begin
40 if FRunState = AValue then Exit;
41 FRunState := AValue;
42end;
43
44end.
45
Note: See TracBrowser for help on using the repository browser.