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