Discussion :

[vince1177]

Bonjour,

je travaille actuellement sur delphi 2009 avec les composants TMS.
Je voudrais pouvoir utiliser le composant DBLuCombo de façon à ce qu'il soit relié à une table; mais ce qu'il me pose problème, c'est que dans ma base le champ sur lequel je pointe est un entier, alors que dans ma BdLuCombo, je souhaite naturellement afficher du texte, mais qu'au final chaque ligne corresponde à un entier (1,2,3, ...) pour faire la correspondance avec ma base.

Seulement je ne parvient pas à trouver comment affecter une valeur entière à chacune de mes lignes (ce qui était faisable avec le compo wwDb Combo de InfoPower).

Si quelqu'un pouvait m'éclairé sur ce point.

Par avance merci

[popo]

Les données issues de ta base de données sont automatiquemet converties en string car c'est comme ça que ton combo l'affiche.

Si tu veux récupérer la valeur entière, il faut la caster avec un StrToInt

[vince1177]

D'abord merci à pop de m'avoir répondu

Par contre je me suis pê mal exprimé dans mon message.

En fait ce que je voudrais, c'est une combo dans laquelle je puisse rentrer une liste fixe (ex: libellé1, libellé2, ...) et qui serait rattachée à une table.
Ensuite selon le choix de mon libellé dans ma combo, je veux que dans ma base de données s'enregistre non pas 'libellé1' mais plutôt une valeur entière qui serait associée au 'libelle1'.
Ceci était possible avec le composant wwDbCombo, pour lequel on mettait le 'maplist' a true et on associait ensuite un valeur à chacun des items.

Étant en pleine refonte d'un logiciel avec notamment avec les composants TMS, je voulais savoir si cela était faisable avec les composant combo de TMS, car j'ai déjà regardé (même avec du code) mais je ne trouve pas mon bonheur .

Cordialement.

[popo]

OK, compris.

Dans ce cas le plus facile est de gérer ces code avec une TList.

Dans ton Combo, tu as les valeurs 'Libellé 1', 'Libellé 2' et 'Libellé 3' et dans ta liste tu met les valeur 1,2 et 3.

Ensuite quand tu veux enregistrer ton code associé à l'item du combo, il suffit de faire un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
i := MonCombo.ItemIndex;
ValeurAEnregistrer := MaListe.items[i];

L'avantage de la TList est qu'elle permet d'ajouter, de supprimer, de modifier, deplacer facilement les enregistrement qu'elle contient.