Comment utiliser AddItem avec un TComboBox ?

Salut,

Que doit-on mettre dans la partie AObject d'une commande additem d'un combobox (AddItem(Item: string, AObject: TObject);)

Mon objectif est d'avoir une valeur différente de itemindex, mais qui me permet de retrouver la ligne sélectionnée.

Merci

Le AddItem te permet d'associer à chaque ligne de ta combo un objet. Ne s'affiche que le string, mais lors de la sélection tu peux accéder à cet objet.

En fait je ne sais pas quel format de donnée y inscrire.

Dans mon cas je récupère d'une base de données, un ID et un libelle. J'affiche le LIBELLE, mais je cherche à récupérer l'ID (sachant que l'ID est au format integer).

Existe-il un exemple d'urilisation de cette commande ?

Merci

Pour ce genre de problème, je me suis fait une ComboBox à 2 colonnes.

En général,ce que je fais, c'est :

Code:

---

1 2	Combobox1.Items.Add(paramètre1);

---

Avec ce code tu n'es pas obligé de définir un TObject

Effectivement, mais parametre1 correspond au libellé afficher dans la combobox (et non pas à l'ID qui doit être caché à l'utilisateur, et que je cherche à retrouver)

Bjr,

Ben tu l'as la réponse : si tu utilises un integer comme clé alors tu peux utiliser AddObject ... sans stocker un objet !!!

Ex :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button3Click(Sender: TObject); var i : Integer; begin ComboBox1.Items.Clear; for i:=0 to 10 do ComboBox1.Items.AddObject('Libellé '+IntToStr(i),TObject(i)); end;   procedure TForm1.ComboBox1Change(Sender: TObject); var ID : Integer; begin ID := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); ShowMessage('Libellé = '+ComboBox1.Text+#13#10'ID = '+IntToStr(ID)); end;

---

Maintenant si ton ID est complexe (autre que integer en fait) alors tu dois passer par un véritable objet.
Je fais ca tout le temps et ca marche nickel :wink:

Voilà

@+
Php

Je vais essayer..

Merci