Советы по Delphi
Свойство 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; |
- Mike Orriss [000927]
