FindNext et FindFirst

Salut à tous

J'essaie de visualiser tous les fichiers sur mon disc mais je n’arrive pas à faire fonctionner cette procedure.

Merci pour la réponse

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure scan; var f : Tsearchrec; begin findfirst('C:\',Directory, f); while (doserror = 0) do begin with f do if (f.name <> '.') and (f.Name <> '..') then begin scan; end else writeln(f.name); end; findnext(f); end;

---

Jio,

Citation:

---

Envoyé par adec62360

Salut a Tous

J'ai essai de visualiser
touts le fichier sur mon disc mais j’ai n’arrive pas a faire fonctionner cette procedure

---

Ta procécure scan ne prenant pas de paramètre, chaque appel récursif la fait redémarer avec findfirst('C:\',Directory, f);, et tu entres donc dans une boucle infinie.

Modifie en conséquence, et reviens si ça ne va pas. :)

ps : pour afficher ton code correctement, il faut l'encadrer avec les balises [*code] [*/code], sans les étoiles qui ne sont là que pour invalider ces balises.