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

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

Функция FindFirst(
const Path: string;
Attr: Integer;
var F: TSearchRec ): Integer;

Модуль: SysUtils

Описание
Функция находит файл с набором атрибутов Attr в каталоге и по маске, определенных константой Path. Найденное имя файла записывается в переменную F. Если указанный файл найден, то функция возвращает 0, иначе возвращается код ошибки Windows. Параметр Attr - комбинация нескольких констант атрибутов файла или их значений. Константа Path представляет собой полный путь с маской файла (например, 'C:\MYDIR\*.ini' ). Повторный поиск файла производится с помощью функции FindNext. По окончанию поиска необходимо высвободить память, выделенную при вызове функции FindFirst, с помощью процедуры FindClose.

Значения констант атрибутов файла:

Пример
Данный пример выводит список всех файлов в каталоге 'C:\WINDOWS\', имеющих атрибуты "Системный" и "Скрытый".
var

F: TSearchRec;

begin

if FindFirst('C:\WINDOWS\*txt.html', 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;

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