Comment je peux utiliser Findnext FindFirst

bonjour
Comment je peux utiliser Findnext FindFirst
merci

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

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

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
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;

Merci c'est resolu

Résolu

j'ai utilisé l'aide de delphi

j'ai utilisé l'aide de delphi

C'est très bien d'avoir trouvé une solution, mais ça:

Citation:

j'ai utilisé l'aide de delphi

il faut le faire avant de poster !!!