Comment je peux utiliser Findnext FindFirst

**zizo89** · 01/05/2007, 14h17

bonjour
Comment je peux utiliser Findnext FindFirst
merci

**EPJSoft** · 01/05/2007, 14h47

FindFirst et FindNext dans quel situation ?

moi je l'utilise pour des Dataset donc base de donnée donc c'est pas la bonne rubrique mais bon je suis pas modérateur donc....

Plus de détail sur le composant héritant de ces procedures

**defluc** · 01/05/2007, 15h15

Exemple d'une procédure récursive qui remplit une listBox des fichiers trouvés

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
22
23
24
25
26
27
28
29
30
Procedure TForm1.ListFill(DirName : string; FileName : string;DirSubDir : Boolean; FoundFileListBox :TListBox);
Var
 FoundResult: TSearchRec;
 Search, Suffix : String;
 IndexFile, SuffixPos, StrLen : Integer;
 
Begin
  Search := DirName + '\' + FileName;  //  FileName peut être un masque *.do? par exemple
 
  IndexFile := FindFirst (Search,faAnyFile,FoundResult);
  while IndexFile = 0 do
     begin
        if (FoundResult.Name <> '.') and (FoundResult.name <> '..') then
              FoundFileListBox.Items.Add(DirName +'\'+FoundResult.Name);
        IndexFile := Findnext(FoundResult);
     end;
     findclose(FoundResult);
     If DirSubDir = True then   // Il faut explorer les sous-dossiers
     Begin
       Search := DirName+'\*.*';
       IndexFile := findfirst(Search,faDirectory,FoundResult);
       while IndexFile = 0 do
       begin
          if (FoundResult.Name <> '.') and (FoundResult.name <> '..') then
           ListFill(DirName + '\' + FoundResult.Name ,FileName, DirSubDir, FoundFileListBox)
          IndexFile := Findnext(FoundResult);
       end;
       findclose(FoundResult);
      end ;
End;