Discussion :

[zizo89]

bonjour
Comment je peux utiliser Findnext FindFirst
merci

[EPJSoft]

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]

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;

[zizo89]

Résolu

[zizo89]

j'ai utilisé l'aide de delphi

[petitprince]

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

j'ai utilisé l'aide de delphi

il faut le faire avant de poster !!!