Правила форума
FindNext (процедура) (модуль WinDos)Язык:
Русский
English
FindNext (процедура) (модуль WinDos)
Находит следующее вхождение файла, соответствующего имени и набору атрибутов, определенных в предшествующем обращении к процедуре FindFirst.
Объявление
Procedure FindNext(Var F : SearchRec);
Режим
Windows, Real, Protected
Замечания
Ошибки сообщаются в переменной DosError. Единственная возможная ошибка - 18 (нет больше файлов).
Смотри также
Пример
Язык:
Русский
English
uses Dos, Crt;
var
DirInfo : SearchRec;
begin
FindFirst('*.PAS', faArchive, DirInfo);
{ Аналог команды DIR *.PAS }
while DosError = 0 do
begin
WriteLn(DirInfo.Name);
FindNext(DirInfo);
end;
end.
var
DirInfo : SearchRec;
begin
FindFirst('*.PAS', faArchive, DirInfo);
{ Аналог команды DIR *.PAS }
while DosError = 0 do
begin
WriteLn(DirInfo.Name);
FindNext(DirInfo);
end;
end.
::
::
::
