Entwickler-Ecke :: Thema anzeigen - Combobox, Item anhand ObjectValue auswählen

TheEquinox - Di 09.08.11 11:15
Titel: Combobox, Item anhand ObjectValue auswählen

Hallo zusammen,

in meinem Delphi7 Projekt habe ich eine Combobox mit Einträgen aus einer Datenbank befüllt. Jeder Eintrag besteht aus einem String und einem Integer:

Delphi-Quelltext

1:	comboBox.AddObject(FieldByName('Description').AsString, TObject(FieldByName('ID').AsInteger));

Wird der Frame mit der Combobox jetzt aufgerufen, wird der aktuelle Datensatz aus der Datenbank gelesen, der auch eine ID enthält. Ich würde jetzt gerne in der Combobox den Eintrag vorauswählen, der diese ID hat. Wie stelle ich das an ?

Selektieren geht ja über comboBox.SelectedIndex := <zahl>

Allerdings sind die IDs nicht von 1-x durchnummeriert, sondern können beliebige (große) Zahlen enthalten.

Bsp. ID des aktuellen Datensatz ist 123456, jetzt möchte ich in der Combobox das Item mit der ID 123456 auswählen.
Ich suche so etwas wie (Pseudocode) comboBox.SelectedIndex := "combobox.GetItemIndexByValue(123456)";

Moderiert von Narses: Delphi-Tags hinzugefügt

Narses - Di 09.08.11 11:32

Moin!

Das gibt´s AFAIR nicht fertig, schreib´s halt schnell selbst: :idea: ;)

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function GetItemByObject(AStrings: TStrings; const AValue: TObject): Integer;
begin
  for Result := 0 to AStrings.Count-1 do
    if (AStrings.Objects[Result] = AValue) then
      Exit;
  Result := -1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(IntToStr(GetItemByObject(ComboBox1.Items, NIL)));
end;

cu
Narses

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!