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); }
Partager