Pascal: Lista de ficheros

Cómo leer la lista de ficheros de la carpeta actual, en Pascal

Lenguaje: Pascal (compilador: Turbo Pascal 7)

Categoría: Ficheros

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Cómo leer la lista de ficheros de la carpeta *)

(*  actual, en Pascal *)

(* Lenguaje: Pascal *)

(* Compilador: Turbo Pascal 7 *)

(* Nivel: Básico *)

(* Disponible desde 17/07/2011 *)

(* Aportado por Nacho *)

(* Autor original: Nacho Cabanes *)

(* Web original: http://www.freepascal.es/tutorials/cupas15.php *)

program ListaDir;
 
uses Dos;
 
var
  Hallado: SearchRec;            { Información sobre el directorio }
                { El tipo SearchRec está definido en la unidad Dos }
 
begin
  FindFirst( '*.PAS', AnyFile, Hallado );       { Los busca }
  while DosError = 0 do                         { Mientras existan }
    begin
    Writeln( Hallado.Name );      { Escribe el nombre hallado }
    FindNext( Hallado );          { y busca el siguiente }
    end;
end.