TStringList als Property

[Bernhard Geyer]

Glaskugel auspack: Du solltest die Stringliste in deiner Komponente auch anlegen

Delphi-Quellcode:

type 
  TMyType = class(TPersistent)
  private
    FMyStringList: TStrings;
  public
    constructor Create(Owner: TObject);
    MyStringList: TStrings read FMyStringList write SetMyStringList;
  end;

constructor TMyType.Create(Owner: TObject);
begin
  inherited

  FMyStringList := TStringList.Create;
end;

procedure SetMyStringList(Value: TStrings);
begin
  FMyStringList.Assign(Value);
end;