Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект групп 3341 и 3382 / DMCore / StringObject
.pas 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.
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