Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Доп. материалы / TreeView / TElementUnit
.pas unit TElementUnit;
interface
uses Classes;
type
TElement = class
private
FStr: string;
public
constructor Create(Prefix: string);
property Str: string read FStr write FStr;
end;
implementation
uses SysUtils;
{ TElement }
constructor TElement.Create(Prefix: string);
begin
FStr := Prefix + ' ' +IntToStr(System.random (1000));
end;
end.
interface
uses Classes;
type
TElement = class
private
FStr: string;
public
constructor Create(Prefix: string);
property Str: string read FStr write FStr;
end;
implementation
uses SysUtils;
{ TElement }
constructor TElement.Create(Prefix: string);
begin
FStr := Prefix + ' ' +IntToStr(System.random (1000));
end;
end.
Соседние файлы в папке TreeView