Verknüpfung zu einer StringList in meiner Komponente

[Keldorn]

Delphi-Quellcode:

  //am bsp eines Tobjects, bei compos etc. mußt du den constructor noch mit override überschreiben
  Ttest = class(TObject)
  private
    Fstringlist: Tstrings;
    procedure Setstringlist(const Value: Tstrings);

  protected

  public
    property stringlist:Tstrings read Fstringlist write Setstringlist;
    constructor Create;
    destructor Destroy; override;
  published

  end;
...

constructor Ttest.Create;
begin
  inherited;
  Fstringlist:=TStringList.Create;
end;

destructor Ttest.Destroy;
begin
  Fstringlist.free;
  inherited;
end;

procedure Ttest.Setstringlist(const Value: Tstrings);
begin
  //hier darf nicht fstringlist=Value stehen, da du dann nur den Zeiger umbiegst
  Fstringlist.Assign(Value);
  Mach_was_weil_neue_stringlist;
end;

ok, ein wenig zu langsam. In dem Code von Jelly fehlt aber das erzeugen und freigeben der der Stringlist . außerdem sollte die Stringlist-property vom Typ Tstrings sein, da du sonst keine Stringlisten aus einer Listbox oder einem Memo direkt zuweisen kannst. (inkompatible Typen tstrings und tstringlist)

Mfg Frank