Курсовой проект групп 3341 и 3382 / DMCore / AlgThread

unit AlgThread;

interface

uses
Classes,
DmmTypes;

type
TDMAlgThread = class(TThread)
private
m_done: Boolean;
m_terminated: Boolean;
protected
procedure Execute; override;
public
property Done: Boolean read m_done write m_done;
property Terminated: Boolean read m_terminated write m_terminated;
procedure terminate; virtual;
end;

implementation

procedure TDMAlgThread.Execute;
begin
end;

procedure TDMAlgThread.terminate;
begin
end;

end.