Процедура FindNext

Модуль DOS

Находит следующее вхождение файла, соответствующего имени и набору атрибутов, определенных в предшествующем обращении к процедуре FindFirst.

Объявление:

Procedure FindNext(Var F : TSearchRec);

Режим:

Windows, Real, Protected

Замечание:

Ошибки сообщаются в переменной DosError. Единственная возможная ошибка - 18 (нет больше файлов).

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для процедур FindFirst и FindNext }

Uses Dos, Crt;

Var DirInfo : TSearchRec;

Begin
 FindFirst('*.PAS', faArchive, DirInfo);
 { Аналог команды DIR *.PAS }
 While DosError = 0 Do
  Begin
   WriteLn(DirInfo.Name);
   FindNext(DirInfo);
  End;
End.