Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект групп 3341 и 3382 / DMCore / algorithm
.pas 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.
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.
Соседние файлы в папке DMCore