Suche Funktion die mir Primärindex zurück gibt

[Sharky]

Zitat von Christian18:

... Diese ComboBox fülle ich mit Daten aus meiner Tabelle Anreden. Um die dritte Normalform nicht zu verletzen, möchte ich nur den Index des Datensatzes in meiner Tabelle Kunden speichern, der in der ComboBox ausgewählt wurde. ...

Hai Christian18,

ich "missbrauche" in solch einem Fall gerne die Objects Eigenschaft von TStrings. Diese ist ja nur ein Pointer. Und da ein Pointer auch nur eine Zahl ist kann ich die ID durch casten auf TObject dort hinterlegen. Beim auslesen muss ich dann nur wieder zurück casten.

Hier einmal ein Beispiel:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
var
  anrede: string;
  id: Cardinal;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Text := 'SELECT id, anrede FROM anreden';
    Open;
    while not (eof) do
    begin
      id := FieldByName('id').AsInteger;
      anrede := FieldByName('anrede').AsString;
      cb_anreden.Items.AddObject(anrede, TObject(id)); // Die id wird auf TObject gecastet
      Next;
    end;
  end;
end;

procedure TDemoForm.btn_testClick(Sender: TObject);
var
  id: Cardinal;
begin
  id := Cardinal(cb_anreden.Items.Objects[cb_anreden.ItemIndex]); // Hier wird wieder auf Cardinal gecastet.
  ShowMessageFmt('Die aktuelle Auswahl hat die ID %d', [id]);
end;

Dadurch habe ich die id immer mit einer "Zeile" der Combobox (oder allem anderen was TStrings ist).