ComboBox associer une valeur à une ligneRésolu

Question

Bonjour, Je voudrais dans une ComboBox pouvoir associé une valeur en fonction de la ligne selectionnée ex : Base de donnee ID -> Valeur 5 -> Toto 10 -> Tata 12 -> Tutu dans la ComboBox ComboBox1.Items.Insert(0,'Toto'); ComboBox1.Items.Insert(1,'Tata'); ComboBox1.Items.Insert(2,'Tutu'); Quand je sélectionne "Tata" je voudrais récuperer la valeur "10" En comparaison, ce que cela ferais en HTML Si vous avez des idées ... J'ai essayer avec ComboBox1.Items.InsertObject Merci d'avance Dimdidi

Cirec · Accepted Answer

Essaye ceci j'ai test&#233; et ca fonctionne

Pour &#233;crir:
procedure TForm1.Button2Click(Sender: TObject);
  Function AddObject(s: String):TObject;
  Begin
    Result := TObject(LongInt(s));
  End;
begin
Combobox1.AddItem('Toto',AddObject('DelphiFr c''est Cool'));
end;


Pour lire:
procedure TForm1.Button3Click(Sender: TObject);
begin
 ShowMessage(String(Combobox1.items.objects[Combobox1.itemindex]));
end;

cs_deubal · Answer

pourquoi ne pas faire une requete qui recupere le id selon la ligne selectionn&#233; dans la combo ??
ca donnerait un truc du style : 'select id from tatable where valeur like ' +quotedstr(tacombo.text + '%');
// j'ai mis like et % car les utilisateurs peuvent normalement saisir juste le debut d'un mot dans ta combo. la requete recherhce alors sur le dubut du mot.
Voili, voilou, a toi de voir si ca correspond a ton besoin

dimdidi · Answer

Merci pour la r&#233;ponse
  mais cela ne me convient pas 
Pour plusieurs raisons :
-Cela implique d'interroger plusieurs fois la base de donnee
     Il aller d'abord chercher l'id dans une table pour l'inserer dans une autre table
-Il peux avoir 2 meme texte pour 2 id diff&#233;rents (c'est idiot mais ca peux arriver)


Dimdidi

cs_deubal · Answer

excuz si ca ne convient pas...
y a pas la possibilit&#233; de mettre 2 colonnes dans ta combo et comme ca l'id correspond &#224; la seconde colonne de l'item selectionn&#233; ?

sinon au chargement de ta combo tu cr&#233;&#233; un tableau de 3 colonnes contenant :
id - valeur - itemindex
quand une valeur est selectionn&#233; tu recup l'id via l'itemindex...

a voir si cela conviendrait mieux

dimdidi · Answer

Merci encore pour la r&#233;ponse
Cela me conviens mieux (d&#233;sol&#233;, si je suis difficile )
Mais je cherche une fonctionnalit&#233; sur la ComboBox qui me permet d'associ&#233; valeur en m'evitant de creer un tableau ou instancier un objet.

J'ai aussi pens&#233;
TInfo=class(TObject)
sValeur
end;
info=Tinfo.create;
info.sValeur='1';
ComboBox1.Items.insertObjet(0,'tata',info);

Aussi
ComboBox1.Items.add(0,'tata=1')
showmessage(ComboBox1.Items.names[0]);
showmessage(ComboBox1.Items.ValueFromIndex[0]);
Cela me conviendrais mais &#224; l'affichage on affiche dans la liste 'tata=1'

Si vous avez des id&#233;es ...

Dimdidi

dominique.stock · Answer

Bonjour,
Il faut utiliser la propri&#233;t&#233; Object de ton item :
Pour affecter la valeur "i" par exemple:

Combobox1.AddItem("Toto",TObject(i));

Pour la r&#233;cuperer :

integer(Combobox1.items.objects[Combobox1.itemindex]) .... (= i)

Dom

dimdidi · Answer

Merci pour la r&#233;ponse 

Ca me conviens.
 
Le souci c'est que cela ne fonctionne pas si tu essaye avec un string (Pb &#224; la r&#233;cupartion des donn&#233;e) ! pourquoi ? (faut passer par l'objet string ?)

ComboBox1.AddItem('toto',TObjet('p'))

showmessage(string(ComboBox1.items.objects[combobox1.itemindex])) 
// Affiche n'importe quoi

Mais si il y a d'autre solution ...


Dimdidi

dominique.stock · Answer

En fait,
Cela ne fonctionne avec une string si les strings que tu as mis dans l'objet sont toujours en m&#233;moire, cela revient &#224; cr&#233;er un tableau de string , affecter chaque ligne du tableau comme objet &#224; ton combobox, et de ne pas d&#233;truire ce tableau le temps de l'utilisation du combobox ...
Je ne connais pas le pourquoi du comment, mais c'est la seule fa&#231;on que j'avais trouv&#233; pour le faire ... 

Dom

dimdidi · Answer

Excuse moi, 
mais est ce que tu peux etre un peu plus clair.
Quand tu dis que le String doit etre en memoire comment faire ?


Dimdidi

dominique.stock · Answer

D&#233;sol&#233;:
C-a-d:
d&#233;finir une variable style TStringList en global,

Y mettre les valeurs auxquelles tu veux associer ton combobox
Liste:=TStringList.create;

Liste.add('titi');
....

Combobox1.additem('toto',Tobject(Liste[0]));

Tant que ta variable Liste existera, tu pourras r&#233;cup&#233;rer ton
String(Combobox1.items.objects[Combobox1.itemindex]) correctement.

Dom

dimdidi · Answer

Merci Dominique,
Pour un  string comme valeur avec une stringlist.
Le souci est que c'est difficile si on ajoute des lignes dans la comboBox.

Merci Cirec,
J'ai test&#233; ton programme et ca marche.
Mais ne risquons pas d'avoir un souci si le string(la chaine de caract&#232;re) depasse la taille memoire d'un longInt ...

Merci &#224; tous d'avoir r&#233;pondu &#224; ma question et de m'avoir propos&#233; des soluions.


Dimdidi

Cirec · Answer

Dimdidi,
oui absolument &#224; partir d'une certaine longueur ca doit poser probl&#232;me 
mais j'ai test&#233;  sur 11 ajouts ( 11 X ) le texte qui suit et jusque l&#224; pas de souscis 

Combobox1.AddItem('Toto',AddObject('DelphiFr c''est Cool 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20'+#13+
'DelphiFr c''est Cool 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40'+#13+
'DelphiFr c''est Cool 41 42 43 44 45 46 47 48 49 40 51 52 53 54 55 56 57 58 59 60'+#13+
'DelphiFr c''est Cool 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80'+#13+
'DelphiFr c''est Cool 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100'+#13+
'DelphiFr c''est Cool 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120'+#13+
'DelphiFr c''est Cool 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140'+#13+
'DelphiFr c''est Cool 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160'+#13+
'DelphiFr c''est Cool 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180'+#13+
'DelphiFr c''est Cool 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200'+#13+
'DelphiFr c''est Cool 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220'+#13));

ce qui nous laisse quand m&#234;me de quoi faire non  


@+
Cirec

cs_gilou33 · Answer

d

dddddd
dddddddddddddddddddddd

cs_gilou33 · Answer

oups d&#233;sol&#233;, merci de supprimer ces messages c'est une erreur de ma part.

ComboBox associer une valeur à une ligne

14 réponses

Votre réponse

Discussions similaires