Code wird nicht ausgeführt - warum? (erledigt, danke an Popov)

[d7user1]

ne, ich habe OwnerDraw und OwnerData aber das von dir genannte nicht.

[Popov]

Hast du in der Hilfe nach geguckt, oder nur unter Objektinspector?

Der Grund ist, modernere Delphiversionen haben bei etlichen Klassen den besagten OwnsObjects Schalter. Ist es da und ist es True gesetzt, gibt die Klasse das angehängte Objekt automatisch frei beim löschen eines Items. Man muss es also nicht selbst tun.

Ist es nicht da, muss man für das Löschen der Items eine eigene Routine schreiben.

[d7user1]

ich habe im OI nachgeguckt. anscheinend gibt es den nicht bei ListView bzw. Delphi 2005 PE

[Popov]

In dem Fall mußt du es selbst machen.

Oder du guckst in der OH nach.

[d7user1]

ok ist erledigt:

Delphi-Quellcode:

procedure ListView1Deletion(Sender: TObject; Item: TListItem);
begin
 TObject(Item.Data).Free;
 Item.Data := nil;
end;

// ...

ListView1.Items.Clear; // löscht auch alle Data-Objekte (getestet)