Delphi. Функция FindNext( var F: TSearchRec ): Integer;
Модуль: SysUtils
Описание
Функция используется в цепочке FindFirst - FindNext - FindClose для повторного поиска файла. Первый поиск осуществляется с помощью функции FindFirst. Функция FindNext возвращает следующий найденный файл, удовлетворяющий условиям поиска определенным при вызове функции FindFirst. В случае успешного выполнения, функция FindNext возвращает 0, а в случае возникновения ошибки - код ошибки Windows. По окончанию поиска необходимо высвободить память с помощью функции FindClose.
Пример
Данный пример выводит список всех файлов в каталоге 'C:\WINDOWS\', имеющих атрибуты "Системный" и "Скрытый".
var
F: TSearchRec;
begin
if FindFirst('C:\WINDOWS\*.txt', faHidden+ faSysFile, F)=0 then
begin
Memo1.Lines.Add(F.Name);
while FindNext(F) = 0 do Memo1.Lines.Add( F.Name);
end;
FindClose(F);
end;
