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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
 
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);  
}