Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
AW: Suche im ListView
22. Okt 2012, 10:18
Dann speichere doch einfach einen Zeiger auf den Record ab.
Delphi-Quellcode:
type
PRec = ^TRec;
TRec = record
...
end;
var
Rec: PRec;
Item: TListItem;
begin
New(Rec);
Rec^.Dings := Bums;
Item := DeineListView.Items.Add;
Item.Data := Rec;
...
//Freigeben
for i := 0 to DeineListView.Items.Count - 1 do
Dispose(PRec(DeineListView.Items[i].Data));
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|