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

unit Associator;

interface

uses
Classes,
algorithm,
instances,
SysUtils,
Windows;

type
TDMAssociator = class ( TDMAlgorithm )
public
procedure buildModel(data : TDMInstances); override; abstract;
procedure ClearModel(); override; abstract;
function toStrings() : TStrings; override; abstract;
function GetAssInfo(): string;
destructor Destroy;override;
end;

procedure setTerminated(const t: Boolean);

var
terminated: Boolean;

implementation



function TDMAssociator.GetAssInfo(): string;
begin
with ModelProperties do
begin
if ByName('Название') = 'Apriori' then
Result := ByName('Время')+' ' + ByName('Название')
else
Result := ByName('Время') + ' ' + ByName('Название');
end;
end;

destructor TDMAssociator.Destroy;
begin
inherited destroy;
end;

procedure setTerminated(const t: Boolean);
begin
terminated := t;
end;

end.