Скачиваний:
28
Добавлен:
01.05.2014
Размер:
623 б
Скачать
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.
Соседние файлы в папке DMCore