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