Discussion :

[gandf]

Bonjour,

J'ai essayé d'utiliser les names/values des TStrings * en suivants les instructions de la faq : http://cpp.developpez.com/faq/bcb/?p...glistclevaleur

Avec le code suivant :

Code :

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

Form7->ComboBox1->Items->Add(IBQueryDivers->FieldByName("Nom_de_la_societe")->AsString + Form7->ComboBox1->Items->NameValueSeparator + IBQueryDivers->FieldByName("Numero_de_client")->AsString);

Et cela affiche "société=1" dans la combobox. Hors, je veux afficher "Société" et pouvoir rectrouver son ID par le Values.

Une idée?

Merci

[gandf]

J'ai essayé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Form7->ComboBox1->Items->Clear();
int indextemp = Form7->ComboBox1->Items->Add("");
Form7->ComboBox1->Items->Values[indextemp] = "0";
for (int I = 0; I < IBQueryDivers->RecordCount; I++)
    {
    indextemp = Form7->ComboBox1->Items->Add(IBQueryDivers->FieldByName("Nom_de_la_societe")->AsString);
    Form7->ComboBox1->Items->Values[indextemp] = IBQueryDivers->FieldByName("Numero_de_client")->AsString;
    IBQueryDivers->Next();
    }

Et cela me donne le résultat suivant :
j'ai mis le contenu entre guillemet mais pour bien voir qu'il y a un champs vide. Ils n'apparaissent pas dans le TComboBox.

Code :

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

1
2
3
4
""
"0=0"
"société"
"2=1"

[totoche76]

Hello,

La propriété Values de TStrings prend un AnsiString en argument.

Code :

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

1
2
3
4
5
6
7
for (int I = 0; I < IBQueryDivers->RecordCount; I++)
    {
    AnsiString nomSociete = IBQueryDivers->FieldByName("Nom_de_la_societe")->AsString;
    Form7->ComboBox1->Items->Add(nomSociete);
    Form7->ComboBox1->Items->Values[nomSociete] = IBQueryDivers->FieldByName("Numero_de_client")->AsString;
    IBQueryDivers->Next();
    }

Sinon sous Builder 2007, il y a ValueFromIndex:

Code :

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

1
2
3
4
5
6
for (int I = 0; I < IBQueryDivers->RecordCount; I++)
    {
    indextemp = Form7->ComboBox1->Items->Add(IBQueryDivers->FieldByName("Nom_de_la_societe")->AsString);
    Form7->ComboBox1->Items->ValueFromIndex[indextemp] = IBQueryDivers->FieldByName("Numero_de_client")->AsString;
    IBQueryDivers->Next();
    }

Si le but est de stocker le numéro de client dans un coin, tu peux utiliser la propriété Objets de TStrings...

[gandf]

Merci

Mais ça ne fonctionne pas. J'ai enlevé l'ajout de la ligne vide pour voir ce que donne la boucle.

Avec le 1er code que tu proposes :

Code :

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

1
2
"société"
"société=1

Et le 2ème :

Code :

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

"=1"

Je ne voulais pas utiliser d'objet juste pour stocker un chiffre alors qu'une fonctionne existe déja pour ça.

Code :

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

1
2
3
4
5
6
7
for (int I = 0; I < IBQueryDivers->RecordCount; I++)
    {
    AnsiString nomSociete = IBQueryDivers->FieldByName("Nom_de_la_societe")->AsString;
    Form7->ComboBox1->Items->Add(nomSociete);
    Form7->ComboBox1->Items->Values[nomSociete] = (AnsiString)IBQueryDivers->FieldByName("Numero_de_client")->AsString;
    IBQueryDivers->Next();
    }

Jai aussi essayé avec en les modifiant :

Code :

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

1
2
3
4
5
6
for (int I = 0; I < IBQueryDivers->RecordCount; I++)
    {
    indextemp = Form7->ComboBox1->Items->Add((AnsiString)IBQueryDivers->FieldByName("Nom_de_la_societe")->AsString);
    Form7->ComboBox1->Items->ValueFromIndex[indextemp] = (AnsiString)IBQueryDivers->FieldByName("Numero_de_client")->AsString;
    IBQueryDivers->Next();
    }

[gandf]

Petite précision :
J'ai fait du pas à pas sur le for et il passe une seule fois dans la boucle. Normal puisqu'il y a une seule société dans ma bdd de test.

[totoche76]

ok, mea cupla, je n'avais pas testé le code !

Pour la 1ère solution, faut virer ->Add():

Code :

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

1
2
3
4
5
6
for (int I = 0; I < IBQueryDivers->RecordCount; I++)
    {
    AnsiString nomSociete = IBQueryDivers->FieldByName("Nom_de_la_societe")->AsString;
    Form7->ComboBox1->Items->Values[nomSociete] = (AnsiString)IBQueryDivers->FieldByName("Numero_de_client")->AsString;
    IBQueryDivers->Next();
    }

Pour la 2ème solution, qui n'apporte pas grand chose, pour que ça marche mieux: (utiliser Values et Names impose d'avoir le séparateur '=')

Code :

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

1
2
indextemp = Form7->ComboBox1->Items->Add(nomSociete)->AsString + "=");
Form7->ComboBox1->Items->ValueFromIndex[indextemp] = numeroClient;

Sinon, pour les objets, c'est juste une manière détournée de stocké un ID entier:

Code :

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

1
2
stringListe->Objects[i] = (TObject*)IDClient;
IDClient = (int)stringListe->Objects[i];

[gandf]

La 1ère solution ne fonctionne toujours pas. J'obtiens :

Code :

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

"société=1"

Pour la 2ème solution, je ne comprend pas la logique puisque indextemp est le numéro retourné par la fonction Add et tu veux lui attribuer un AnsiString? Et du coup obtenir exactement la même chose que pour la 1ère solution.

En fait, le ComboBox n'a pas l'air de gérer le couple Names/Values.

[totoche76]

La 1ère solution correspond à ce que l'on est en droit d'attendre de Values/Names, mais en effet ce n'est peut-être pas de ça que tu as besoin !!

Pour la 2ème solution, quand tu appelles ValueFromIndex, il va rechercher le n-ème élément dans la liste en vérifiant qu'il est bien de la forme "X=". Si le séparateur = est absent, il te rajoute une ligne "=valeur"... cf le fichier source Classes.pas...

Au final, tu vas peut-être te retrouver à utiliser Objects...

[gandf]

Effectivement, je n'avais pas compris les choses comme ça.

Et tout fonctionne avec un objet.

.h

Code :

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

1
2
3
4
5
class TIndexPerso : public TObject
{
public:
        int index;
};

.cpp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
for (int i = 0; i < Form7->ComboBox1->Items->Count; i++)
    {
    if (Form7->ComboBox1->Items->Objects[i] != NULL)
       {
       delete Form7->ComboBox1->Items->Objects[i];
       }
    }
Form7->ComboBox1->Items->Clear();
TIndexPerso *indexpersovide = new TIndexPerso();
indexpersovide->index = 0;
int indextemp;
Form7->ComboBox1->Items->Add("");
Form7->ComboBox1->Items->Objects[0] = indexpersovide;
for (int I = 0; I < IBQueryDivers->RecordCount; I++)
    {
    TIndexPerso *indexpersovide = new TIndexPerso();
    indexpersovide->index = IBQueryDivers->FieldByName("Numero_de_client")->AsInteger;
    indextemp = Form7->ComboBox1->Items->Add(IBQueryDivers->FieldByName("Nom_de_la_societe")->AsString);
    Form7->ComboBox1->Items->Objects[indextemp] = indexpersovide;
    IBQueryDivers->Next();
    }

Et dans le OnClose de la Form :

Code :

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

1
2
3
4
5
6
7
for (int i = 0; i < Form7->ComboBox1->Items->Count; i++)
    {
    if (Form7->ComboBox1->Items->Objects[i] != NULL)
       {
       delete Form7->ComboBox1->Items->Objects[i];
       }
    }

Merci pour tout