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