findnext

(procedimiento)
Lenguaje: Pascal   (Versión: Turbo Pascal)

Busca el siguiente fichero que cumpla una condición

Declaración: procedure FindNext(var F: SearchRec);

Detalles:
Busca el siguiente fichero que cumpla con el nombre de fichero y los atributos que se habían indicado en una llamada anterior a FindFirst.

La variable DosError valdrá 18 cuando no haya más ficheros.

Ejemplo:

uses Dos;

var
  DirInfo: SearchRec;
begin
  FindFirst('*.PAS', Archive, DirInfo); { Igual que DIR *.PAS }
  while DosError = 0 do
  begin
    Writeln(DirInfo.Name);
    FindNext(DirInfo);
  end;
end.

Órdenes relacionadas:   findfirst  

  Volver al índice de la referencia o al apartado de Pascal