ErrorDeSintaxis

Pequeños fragmentos de código fuente en distintos lenguajes de programación, agrupados por categorías.

Puedes buscar entre los fuentes existentes, o aportar los tuyos.

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.