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