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