Delphi 5. Справочник. Функции и процедуры

III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ

1. Основные функции и процедуры для работы с файлами

Функция 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;

[ Оглавление ]