Comment éviter les doublons dans TComboBox ?

Version imprimable

Bonjour,

dans mon application, j'utilise un composant ComboBox qui liste les 6 premiers caractères des fichiers d'un répertoire.
Mon soucis est qu'il y a des doublons et j'aimerai savoir comment supprimer ces doublons ???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
__fastcall TFormParametresSeuils::TFormParametresSeuils(TComponent* Owner)
	: TForm(Owner)
{
    AnsiString RepertoireApplication = ExtractFilePath(Application->ExeName);
	AnsiString NumSerie = FormParametresSeuils->EditNumSerie->Text;
	AnsiString nom = RepertoireApplication+"\\repertoire\\";
 
 
	Extensions = new TStringList;
	Extensions->Add(".txt");
	Search (nom, Extensions, FormParametresSeuils->ComboBoxNumSerie->Items);
    delete Extensions;
 
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
void TFormParametresSeuils::Search(AnsiString FilePath, TStringList * Extensions, TStrings * ListeFichiers)
{
	TSearchRec Infos_fichier;
	if (!FindFirst(FilePath+"*.txt", faAnyFile, Infos_fichier))
	do
	{
		for (int i = 0 ; i < Extensions->Count ; i++)
		{
			if (ExtractFileExt(Infos_fichier.Name).LowerCase() == Extensions->Strings[i].LowerCase())
			{
 
				ListeFichiers->Add((Infos_fichier.Name.Delete(7,20)));
			}
		}
	}
	while(!FindNext(Infos_fichier));
	FindClose(Infos_fichier);  
}

:?:?:?:?:?:?:?

28/04/2009, 13h21
gandf

Tu peux utiliser ce code à la place de Delete. Je en suis pas sur de l'indice (c'est 0 ou 1) pour ne pas avoir de problème si un fichier porte un nom trop long.

Code:

Infos_fichier.Name.SubString(1,6)

ensuite, avant de l'ajouter à ta liste, il faut parcourir toute ta liste pour vérifier si cet item existe déja avec u for par esxemple a moins qu'une fonction de recherche existe sur avec les TStringList.
28/04/2009, 13h37
kurul1

Lorsque tu construit ton ComboBox, tu peux faire ceci pour tester si un Item existe déjà

[code]
ComboBox->Items->IndexOf("chaine de l'item que tu veux ajouter")
[code]

cette fonction te renvois -1 si l'item n'existe pas, l'indice du premier Item rencontré s'il existe déjà.

Merci beaucoup, j'ai réussi à faire ce que je souhaitai !!! :king:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
void TFormParametresSeuils::Search(AnsiString FilePath, TStringList * Extensions, TStrings * ListeFichiers)
{
	TSearchRec Infos_fichier;
	if (!FindFirst(FilePath+"*.txt", faAnyFile, Infos_fichier))
	do
	{
		for (int i = 0 ; i < Extensions->Count ; i++)
		{
			if (ExtractFileExt(Infos_fichier.Name).LowerCase() == Extensions->Strings[i].LowerCase())
			{
				int Doublon = FormParametresSeuils->ComboBoxNumSerie->Items->IndexOf(Infos_fichier.Name.Delete(7,20));
				if (Doublon == -1)
				{
                	ListeFichiers->Add((Infos_fichier.Name.Delete(7,20)));
				}
 
 
			}
		}
	}
	while(!FindNext(Infos_fichier));
	FindClose(Infos_fichier);  
}

A bientôt !!!