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

unit StringObject;

interface

   type
    TDMStringObject = class (TObject)
    private
      value : AnsiString;

    public
      constructor Create(newVAlue : AnsiString);
      procedure setValue(newVAlue : AnsiString);
      function stringValue() : AnsiString;
    end;

implementation

  constructor TDMStringObject.Create(newValue :AnsiString);
  begin
    value := newValue;
  end;

  procedure TDMStringObject.setValue(newValue :AnsiString);
  begin
    value := newValue;
  end;

  function TDMStringObject.stringValue() : AnsiString;
  begin
    result := value ;
  end;

end.