Советы по Delphi

       

Свойство TStringList


Вам необходимо определять поле как TStrings, а не как TStringList - ловушка, в которую, подразумеваю, попадал не я один!

Следующий пример показывает подход, необходимый для создания свойства, имеющего тип TStringList:

privateFList: TStrings;
protectedprocedure SetList(Value: TStrings);
publishedproperty List: TStrings read FList write SetList;
constructor Txxxxx.Create(AOwner: TComponent);begininherited Create(AOwner);FList := TStringList.Create;end;
destructor Txxxxx.Destroy;beginFList.Free;inherited Destroy;end;
procedure Txxxxx.SetList(Value: TStrings);beginFList.Assign(Value);end;

- Mike Orriss [000927]



Содержание раздела