Discussion :

[gandf]

Bonjour à tous.

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
bool Present;
for (int I = 0; I < Table1->RecordCount; I++)
    {
    Present = false;
    if (Table1->FieldByName("Machin")->Value.VString != "") // Aévite d'ajouter une ligne vide dans le ComboBox
       {Form4->ComboBox2->ItemIndex = 0;
       for (int C = 0; C < ComboBox2->Items->Count; C++)
           {
           ComboBox2->ItemIndex = ComboBox2->ItemIndex + 1;
           if (ComboBox2->Items->Text == Table1->FieldByName("Machin")->AsString) // C'est la ligne qui pose problème
              {
              Present = true;
              }
           }
       if (Present == false)
          {
          Form4->ComboBox2->Items->Add(Table1->FieldByName("Machin")->Value);
          }
       }
    Table1->Next();
    }

Donc, je charge dans un ComboBox des valeurs. Ces valeurs peuvent être identique et je veux donc quelles n'apparaissent pas plusieurs fois.
Seulement, même si les valeurs sont identiques, ca marche pas.
En faisant un pas à pas, elles sont toujours différentes.
Pourquoi et comment faire pour contourner ce problème?
J'utilise une kbmMemTable.

Merci

[yotasse]

Salutations,

== est déclaré comme surchargé dans la doc mais l'est pas du tout, j'ai deja eut le meme probleme...
utilise AnsiCompare() a la place

Code :

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

1
2
 
if (!ComboBox2->Items->Text.AnsiCompare(Table1->FieldByName("Machin")->AsString))

[gandf]

Merci bien mais ca fonctionne pas. Il n'exécute jamais ce qu'il y a entre les {} de if.
J'ai pris 2 labels et j'ai fait :

Code :

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

1
2
Label1->Caption = Label1->Caption + ComboBox2->Items->Text;
Label2->Caption = Label2->Caption + Table1->FieldByName("Machin")->AsString

J'obtiens pour label2 :

Machin1Machin2Machin2Machin3

Pour le Label1 :

Machin1
Machin2
Machin2
Machin3

Donc pourquoi le ComboBox2 possède une sorte de retour à la ligne.

[Gilles Louïse]

Votre programme est faux parce que vous faites vos comparaisons avec la propriété Text. Or Text représente ce qui est visible en haut du ComboBox alors que vous, vous voudriez visitez les chaînes successives présentes dans le ComboBox, donc il faut utiliser ComboBox1->Items->Strings[i] où i est l'index compris entre 0 et ComboBox1->Items->Count. Voici une petite routine d'insertion qui reçoit en argument un AnsiString A et qui ajoute la chaîne A au ComboBox si A est différent des autres chaînes présentes dans ce même ComboBox.

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::Insere(AnsiString A)
{
int i;
for(i=0;i<ComboBox1->Items->Count;i++)
if(ComboBox1->Items->Strings[i]==A) return;
ComboBox1->AddItem(A,ComboBox1);
}

On compare A avec les chaînes existantes. Dès que A est perçu comme égal à une chaîne on sort. Sinon, si on ne sort jamais, la boucle se termine, on sait alors que A n'est égal à aucune des chaînes du ComboBox, on insère alors A dans le ComboBox.

À bientôt
Gilles

[Greybird]

Bonjour,

Je me permet de proposer également une solution basée sur l'utilisation de la propriété Duplicates des TStringList :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  TStringList* Liste;
  Liste = new TStringList;
  Liste->Duplicates = dupIgnore;
  Liste->Sorted = true;
  Liste->Add("Test");
  Liste->Add("Test2");
  Liste->Add("Test3");
  Liste->Add("Test");
  Liste->Add("Test3");
 
  ComboBox1->Items = Liste;
 
  delete Liste;

Le problème est que l'utilisation de Duplicates implique que la liste soit triée, et cela peut donc être un problème.

Cordialement,

Arnaud

[gandf]

MERCI!

Ca fonctionne avec la methode de Gilles Louïse.

Mais je comprend pas pourquoi en mettant :

Code :

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

ComboBox2->ItemIndex = ComboBox2->ItemIndex + 1;

ca fonctionne pas en utilisant ComboBox2->Items->Text

Votre programme est faux parce que vous faites vos comparaisons avec la propriété Text. Or Text représente ce qui est visible en haut du ComboBox alors que vous, vous voudriez visitez les chaînes successives présentes dans le ComboBox

Je croyais que je le faisait puisque j'avais fait un test avec des label pour savoir ce qui était comparé.

Merci bien.

[Greybird]

N'oubli pas de marquer le sujet comme Résolu, s'il te plait...

[yotasse]

Désolé pour ma fausse piste ,
Dans mon code j'avais besoin d'une comparaison casse indépendante, d'ou l'utilisation de AnsiCompareIC() et pas de == .... j'ai lu la question un peu rapidement : si cela ne marche pas, toi meme le dit : il y a un retour chariot dans l'une des string retournée.

Enfin, pour répondre a ta derniere question, c'est ce n'est pas que ton iteration soit "fausse" a proprement parler, mais elle n'est pas correcte d'un point de vue programmation : les proprietes "text" et "ItemIndex" sont a reserver exclusivement pour l'IHM, et non pour utiliser les données internes, d'ou la très bonne reponse de Gilles Louïse.