Section courante

A propos

Section administrative du site

Si vous souhaitez effectuer une lecture d'un dossier comme la commande «ls» de Linux, «DIR» de DOS, Windows et OS/2 ou FILES du GWBASIC, vous devriez écrire un code ressemblant à ceci :

  1. Program ListeDesFichiers;
  2.  
  3. Uses SysUtils;
  4.  
  5. Var
  6.  Directory:TSearchRec;
  7.  
  8. BEGIN
  9.  If FindFirst('*.*',faAnyFile,Directory) = 0 Then Begin
  10.   Repeat
  11.    WriteLn(Directory.Name);
  12.   Until FindNext(Directory)<>0;
  13.   FindClose(Directory);
  14.  End;
  15. END.

on obtiendra le résultat suivant :

.
..
fichier1.txt
fichier2.txt
fichier3.pas
ficiherx.c


Dernière mise à jour : Samedi, le 30 août 2014