Discussion :

[adec62360]

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 :

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

[droggo]

Jio,

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.