Wie auf den Eintrag der Combobox zugreifen?

[Rolf Rostig]

Hallo,

ich fülle eine Combobox aus einer Firebird-Tabelle:

Delphi-Quellcode:

  with DM.IBSQLAdressen do
   begin
    close;
    ExecQuery;
    cbNamen.Items.clear;
    while not Eof do
     begin
      cbNamen.Items.AddObject(FieldByName('Eintrag').asString,
        TObject(FieldByName('ID').asInteger));
      next;
     end;
   close;
  end;

Nun möchte ich mit der ID auf den Eintrag der Combobox zugreifen.
Aber wie?

Delphi-Quellcode:

Combobox.ItemIndex := FieldByName('ID').asInteger

geht ja nicht

[Robert_G]

TStrings hat doch auch die Funktion "IndexOfObject":

Delphi-Quellcode:

  ...ComboBox1.Items.IndexOfObject(TObject(FieldByName('ID').asInteger));

[DelphiDeveloper]

Hallo Rolf,

du musst dein TObject als integer casten um an die ID's zu kommen:

Der ItemIndex ist ja schon vom anwender bestimmt, indem er einen Eintrag
in der Combo ausgewaehlt hat. Jetzt willst du zu diesem ItemIndex die ID.

Delphi-Quellcode:

with CBNamen do
begin
   showmessage(Inttostr(  integer( Items.Objects[ItemIndex])));
end;

[Rolf Rostig]

Hallo DelphiDeveloper,

nee genau anders herum.
Jetzt will ich zu dieser ID den ItemIndex.

[DelphiDeveloper]

dann faellt mir nichts bessers ein als sowas

Delphi-Quellcode:

function TForm1.GetItemIndexFromID(const aID: integer): integer;
var
  i: integer;
begin
  result := -1;
  with CBNamen do
  begin
    i := 0;
    while i <= pred(CBNamen.Items.Count) do
    begin
      if integer(cbnamen.Items.Objects[i]) = aID then
      begin
        result := i;
        break;
      end; //if
      inc(i)
    end; //while

  end; //with
end;  //func

[Robert_G]

Haalllloo... :hi:

Ist das denn nicht das, was du wolltest?

Zitat:

Zitat von Robert_G

Delphi-Quellcode:

ComboBox1.Items.IndexOfObject(TObject(FieldByName('ID').asInteger));

[DelphiDeveloper]

@robert hat recht geht einfacher

CBNamen.ItemIndex := integer(CBNamen.Items.IndexOfObject(TObject(aID))) ;

[Robert_G]

Wozu der TypeCast????
TStrings.IndexOfObject liefert einen Integer!

[Rolf Rostig]

Danke, so geht´s

:cheers:

[DelphiDeveloper]

@robert hat schon wieder recht :stupid:


typecast brauchts wirklich nicht bei IndexOfObject

CBNamen.ItemIndex := CBNamen.Items.IndexOfObject(TObject(aID));