write property wird nicht ausgeführt?!

[SirThornberry]

ich habe eine Klasse gebastelt und irgendwie funktioniert das jetzt nicht, weiß aber nicht warum..
Sinn der Items eigenschaft ist das man nicht 5 mal add ausführen muss (was im Objectinspektor ja auch nicht geht)

Delphi-Quellcode:

 [..Class..]
   property items: TStringlist read getlines write setlines;
 [...]

Bei der Variante wird setlines nicht aufgerufen

Delphi-Quellcode:

var tmp2: TStringlist;
begin
  tmp2 := TStringlist.create;
  tmp2.Text := memo1.Lines.Text;
    ButtonSwitch1.items.Text := tmp2.Text;

  tmp2.Free;
end;

Bei der schon

Delphi-Quellcode:

var tmp2: TStringlist;
begin
  tmp2 := TStringlist.create;
  tmp2.Text := memo1.Lines.Text;
    ButtonSwitch1.items := tmp2;

 tmp2.Free;
end;

warum??

[Christian Seehase]

Moin SirThornberry,

weil Du im ersten Beispiel nicht die Eigenschaft Items, sondern deren Eigenschaft Text ansprichst, und das ist dann eine Eigenschaft des internen Feldes. Die Eigenschaft Items Deiner Klasse wird davon nicht berührt.