Discussion :

[vladock]

J'ai lu la FAQ concernant la recherche de fichier en Turbo pascal et voici la partie du programme que j'ai écrit mais il ne marche pas (il ne m'affiche rien).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

findfirst ('c:\*.TXT',archive,fichier);

Donc, s'il vous plaît, envoyez-moi la solution.

[j.p.mignot]

Avec Turbo pascal, une syntaxe du type suivant est nécessaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var str1 : string; s_r : SearchRec;
 
......
str1:='*.*'; // ou un autre masque
findfirst(str1,$3f {ou autre selection d'attribut $3F : accepte tout },s_r);
while doserror=0 do
   begin
   // le fichier du path correspondant au masque & avec l'attribut accepté
   // est
   // s_r.name
   findnext(s_r)
   end;
...

Sous Delphi, la syntaxe est légèrement différente :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var s_r : TSearchrec;
...
// pour str1 et $3F, voir ci-ddessus
if FindFirst(str1,$3f,s_r)=0 then
   repeat
   until FindNext(s_r) <> 0;
FindClose(s_r);