ListItems eines Listviews mit einer eindeutigen ID versehen

[Kiffi]

Hallo,

ich kippe Daten einer Datenbank in ein Listview. Damit ich weiß, welcher Eintrag später selektiert wird,
schreibe ich den Primary Key (hier: ID) in die erste Spalte des Listviews. Die Spalte selber ist "Visible = False".

Code: Alles auswählen

SQLQuery1.Open;
 
  while not SQLQuery1.EOF do
  begin
    ListItem := TListItem.Create(ListView1.Items);
    ListItem.Caption := SQLQuery1.FieldByName('ID').Text; // 1. Spalte ist invisible
    ListItem.SubItems.Add(SQLQuery1.FieldByName('ProductName').Text);
    Listview1.Items.Additem(ListItem);
    SQLQuery1.Next;
  end;
 
SQLQuery1.Close;

Was meint Ihr? Ist das ein gangbarer Weg? Oder gibt's andere Herangehensweisen?
Unter VB würde ich die Tag-Eigenschaft eines ListItems verwenden.
Dieses gibt es anscheinend unter FreePascal nicht, oder?

Danke im Voraus & Grüße ... Kiffi

[theo]

Ein ListItem hat einen Pointer "Data". damit kannst du afaik machen was du willst.

Wenn du nur ein Cardinal speichern willst, geht's so:
var MyCard:Cardinal;
...
ListItem.Data:=Pointer(MyCard);
zurück
MyCard:=PtrUInt(ListItem.Data);

Es gibt zwar Hints, dass das nicht portabel sei, ist aber schon OK.
Sonst kannst du da auch ein Objekt dranhängen, mit mehreren Infos.

[Kiffi]

Hallo theo,

Ein ListItem hat einen Pointer "Data". damit kannst du afaik machen was du willst.

Passt! Danke für Deine schnelle Hilfe!

Grüße ... Kiffi