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