ComboItem(Index) laden

[Micha]

Habe folgendes Problem:

Situtation:
Eine ComoboBox mit Werten z. B. 1.1. a), 1.2. a) …
Ein Edit-Feld

Klickt man in das Edit-Feld, so erscheint die ComboBox.
Im OnChange-Ereignis der ComboBox ist folgendes Hinterlegt:

Delphi-Quellcode:

procedure TTaetigkeiten.combo_arpChange(Sender: TObject);
Var
aKopf : PaKopfInfo;
begin
   aKopf := PaKopfInfo(Combo_arp.Items.Objects[Combo_arp.ItemIndex]);
   Fld.Text := Combo_arp.Text;
   ArpId[Fld.Tag] := aKopf^.I0;
   Combo_arp.Visible := False;
end;

Sprich, es wird dann eben der Index-des Eintrages gespeichert.

Wenn ich jetzt nachher nochmal in das Edit klicke und somit die ComboBox erscheint, springt er immer zum Ersten Item.
Ich möchte aber natürlich, dass er mir das Item aufruft, das in dem Edit steht.

Die Items, die in der Combo stehen sind in einer Datenbank gespeichert und das Edit wird auch auch in einer DB gespeichert (gespeichert wird aber nicht der Text, sondern natürlich die ID des Wertes.)

Ich hoffe, ich hab nicht zuwenig Source gepostet und ihr wisst was ich meine.

Kann mir jemand helfen?

Vielen Dank im Voraus.

[ibp]

dann setz Combo_arp.ItemIndex und das problem sollte gelöst sein!
gruß rené

[Micha]

Zitat:

dann setz Combo_arp.ItemIndex und das problem sollte gelöst sein!

Hä?

Delphi-Quellcode:

Combo_arp.itemindex;

Des geht doch gar net.

Wenn dann halt irgendwas mit:

Delphi-Quellcode:

Combo_arp.itemindex := ...; // aber was an der Stelle?

[Micha]

Habs gerade selber rausgefunden. Funktioniert (fast *g*)! Bei mir haut es nur wegen dem Fld nicht ganz hin.

Delphi-Quellcode:

 Combo_arp.ItemIndex := Combo_arp.Items.IndexOf(Fld.Text);

[Smokey]

Oder du speicherst den Entsprechenden Index in der Tag-Variable des Textfeldes. Dann kannst du direkt auf den Datensatz springen.

[Micha]

Stimmt wär auch ne Möglichkeit.

Aber der Tag ist bei mir fortlaufend fix nummeriert - brauch ich unbedingt für ne andere Funktion.

Trotzdem DANKESCHÖÖÖN