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

unit AssociatorThread;

interface

  uses
    Classes,
    algorithm,
    Instances,
    Associator,
    AlgThread,
    Forms,
    Controls,
    DmmTypes,
    Windows;

  type
    TDMAssociatorThread = class(TDMAlgThread)
    private
      m_associator: TDMAlgorithm;
      m_train: TDMInstances;
    protected
      procedure Execute; override;
    public
      property Ass: TDMAlgorithm read m_associator write m_associator;
      property TrainData: TDMInstances read m_train write m_train;
      procedure terminate; override;
      {destructor destroy; override;}
    end;

implementation

  procedure TDMAssociatorThread.Execute;
  begin
    done:=False;
    terminated:=False;
    Associator.setTerminated(False);
    (m_associator as TDMAssociator).buildModel(m_train);
    Done :=True;
  end;

  procedure TDMAssociatorThread.terminate;
  var
    exitCode: Cardinal;
  begin
    terminated:=True;
    Associator.setTerminated(True);
    Screen.Cursor := crHourGlass;
    repeat
      GetExitCodeThread(self.Handle, exitCode)
    until (exitCode=1);
    Screen.Cursor := crArrow;
  end;

  {destructor TDMAssociatorThread.Destroy;
  begin
     m_associator:=nil;
     m_train := nil;
  end;  }

end.