Combobox mit Objekten

[Mike_on_Tour]

Hallo zusammen,

ich möchte eine Ländertabelle in eine Combobox eintragen und später nach einem Eintrag suchen.

Die Ländertabelle besteht aus dem Namen und der Abkürzung des Landes, also z.B.:

Deutschland - DEU
Italien - ITA
Frankreich - FRA

Der Eintrag in die ComboBox erfolgt so:

Delphi-Quellcode:

  ComboBox.Items.Clear;
Table.First;
while (not Table.EOF) do begin
  Combobox.Items.AddObject (Table.FieldByName('Landname').AsString,
                            TObject(Table.FieldByName('LandKurz').AsString));
  Table.Next;
end;

In der Combobox wird auch nur der Names des Landes angezeigt.

Wenn ich jetzt einen Listeneintrag auswähle, möchte ich gern die Abkürzung des Landes ermitteln.

LandKurz := String (ComboBox.Items.Objects[ComboBox.ItemIndex]); Das funktioniert aber nicht.

Auch die Positionierung auf ein Land über die Abkürzung klappt nicht:

Delphi-Quellcode:

sLand := 'DEU'; 
ComboBox.ItemIndex := ComboBox.Items.IndexOfObject (TObject (sLand));

Kann mir jemand auf die Sprünge helfen ?

Mike