Suche Funktion die mir Primärindex zurück gibt

[Christian18]

Hallo,

gibt es in Delphi ein Funktion, die mir den Primärindex eines Datensatzes zurückgibt? Ich erkläre am besten nochmal wofür ich das brauche. Ich habe auf meinem Kunden Formular eine ComboBox. 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. Früher habe ich es mit Locate gemacht. Diese Variante des suchens ist mir aber zu langsam. Ich suche etwas schnelleres, da ich das nicht nur bei den Anreden mache. Sondern auch noch bei den Titeln, Namenszusätzen, u.s.w.

Vom Prinzip her brauche ich eine Funktion, der ich Tabellenname, Suchfeld und Rückgabefeld übergebe. Wahrscheinlich wird es sowas standardmäßig in Delphi 7 nicht geben. Deshalb muß ich mir wohl selber einen Kopf machen. Ich habe schon mal angefangen:

Delphi-Quellcode:

function findindex(Table : TADOTable; Search : String; Return : String) : Integer;
begin

end;

[alzaimar]

Wie wäre es mit Lookup. Ob ein Index verwendet wird, entscheided ADO bzw. der Provider. Falls das zu langsam ist, arbeite mit 'SELECT'. Du bastelst Dir dann deine Abfrage on-the-fly selbst zusammen und schickst sie zur DB.

[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).

[TBx]

wie wäre es denn mit der Verwendung von LookUpCombo?
Imho die sinnvollste Möglichkeit.

Gruß

onlinekater