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

unit algorithm;

interface

uses
Classes,
StandardSerializableObject,
Instances,
SysUtils,
ModelProperties;

type
TDMAlgorithm = class( TDMStandardSerializableObject )
private
m_modelProperties: TModelProperties;
function get_ModelProperies: TModelProperties;
procedure set_ModelProperties(const Value: TModelProperties);
public
procedure buildModel(data : TDMInstances); virtual; abstract;
procedure ClearModel(); virtual; abstract;
function applyInstance(instance : TDMInstance) : double; virtual;abstract;
property ModelProperties: TModelProperties
read get_ModelProperies
write set_ModelProperties;
destructor Destroy;override;
end;

implementation

{ TDMAlgorithm }

function TDMAlgorithm.get_ModelProperies: TModelProperties;
begin
Result := m_modelProperties;
end;

procedure TDMAlgorithm.set_ModelProperties(const Value: TModelProperties);
begin
m_modelProperties := Value;
end;

destructor TDMAlgorithm.Destroy;
begin
FreeandNil(m_modelProperties);
end;

end.