Советы по 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]
