mirror of
https://github.com/Dennis1000/mos6502-delphi.git
synced 2024-06-08 23:29:32 +00:00
42 lines
517 B
ObjectPascal
42 lines
517 B
ObjectPascal
|
unit C64.Thread;
|
||
|
|
||
|
interface
|
||
|
|
||
|
uses
|
||
|
System.Classes, C64;
|
||
|
|
||
|
type
|
||
|
TC64Thread = class(TThread)
|
||
|
private
|
||
|
C64: TC64;
|
||
|
protected
|
||
|
public
|
||
|
procedure Execute; override;
|
||
|
constructor Create(C64Instance: TC64);
|
||
|
destructor Destroy; override;
|
||
|
end;
|
||
|
|
||
|
implementation
|
||
|
|
||
|
{ TC64Thread }
|
||
|
|
||
|
constructor TC64Thread.Create(C64Instance: TC64);
|
||
|
begin
|
||
|
inherited Create(True);
|
||
|
C64 := C64Instance;
|
||
|
end;
|
||
|
|
||
|
destructor TC64Thread.Destroy;
|
||
|
begin
|
||
|
|
||
|
inherited;
|
||
|
end;
|
||
|
|
||
|
procedure TC64Thread.Execute;
|
||
|
begin
|
||
|
inherited;
|
||
|
|
||
|
end;
|
||
|
|
||
|
end.
|