Доп. материалы / TreeView / TElementUnit

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.