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

 

Не знаешь, где искать?
Читай Delphi FAQ!

 


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;


[Вернуться к содержанию]

 


Рейтинг@Mail.ru