Курсовой проект групп 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.