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