Delphi-Quellcode:
...
procedure TForm1.Button1Click(Sender: TObject);
var
Item : TListItem;
begin
item := lv.Items.Add;
Item.Data := Pointer(45);
Item.Caption := 'Test';
end;
procedure TForm1.lvSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
If Assigned(Item) then
Caption := IntTostr(Integer(Item.Data));
end;
end.
Der Code läuft zumindest beim Bestücken der Liste einfach genial. Trotzdem nochmal eine Frage dazu:
Recht es aus, wenn ich beim Beenden des Programmes
Delphi-Quellcode:
procedure TForm1.Destroy(Sender: TObject);
begin
lv.clear;
end;
mache
oder muss ich die Liste durchgehen und die ganzen Einträge nebst dem in Data gespeicherten Integer von Hand "beseitigen"?
Ich selbst weiß es leider nicht, kann es mir nicht herleiten und möchte nicht um es herauszufinden mittels try and error FastMemory dazunehmen.
Gruß und Dank, Alex