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

unit DoubleObject;

interface

   type
    {Класс, создает объекты типа double}
    TDMDoubleObject = class (TObject)
    private
      value : double;
    public
      constructor Create(newVAlue :double);
      procedure setValue(newVAlue :double);
      function doubleValue() : double;
    end;

implementation

  constructor TDMDoubleObject.Create(newVAlue :double);
  begin
    value := newValue;
  end;

  procedure TDMDoubleObject.setValue(newVAlue :double);
  begin
    value := newValue;
  end;

  function TDMDoubleObject.doubleValue() : double;
  begin
    result := value ;
  end;

end.