| Статистика | 
|
|
Каталог статей
Свойство TStringList
Вам необходимо определять поле как TStrings, а не как TStringList - ловушка,
в которую, подразумеваю, попадал не я один!
Следующий пример показывает подход, необходимый для создания свойства,
имеющего тип TStringList:
private
FList: TStrings;
protected
procedure SetList(Value: TStrings);
published
property List: TStrings read FList write
SetList;
constructor Txxxxx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FList := TStringList.Create;
end;
destructor Txxxxx.Destroy;
begin
FList.Free;
inherited Destroy;
end;
procedure Txxxxx.SetList(Value: TStrings);
begin
FList.Assign(Value);
end;
|
|
|
Просмотров: 464
5
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
