Eindeutiger Bezeichner bei Livebindings zuordnen

[Catbytes]

Hallo,

habe es jetzt so gelöst, wie im Link unten:

Meine note_id mit ListView1.ItemLookupData per Livebindings verbunden.

Beim OnClick-Event dann zum aufrufen und prüfen z.B.

Delphi-Quellcode:

procedure TForm1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
  N_ID_Str: string;
begin
  N_ID_Str := LinkFillControlToField1.BindList.GetSelectedValue.AsString;
  showmessage(N_ID_Str);
end;

Mit AsInteger kommt eine Exception, obwohl note_id ein Integer ist.

Die Tabelle wurde so aufgebaut:

Code:

CREATE TABLE `notes` (
   `note_id`   INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT UNIQUE,
   `description`   VARCHAR,
   `group_id`   INTEGER,
   `note`   TEXT
);

Falls jemand eine elegantere Lösung findet, bitte hier posten. Ansonsten ist das 'ne schnelle Lösung für das Problem. Nicht schön, aber selten^^

Original-Lösung/Post: https://forums.codegear.com/thread.j...4999&tstart=-1

Interessant ist, daß im Original-Post der Benutzer "Eli M" vorschlägt, daß ganze per "Tag" zu erledigen. Das Problem ist eben, daß das angebotene Tag beim Livebinding das von der ListView an sich ist und eben nicht von Item.Tag -> genau das fehlt. Warum, weiß wohl nur Embarcadero...