Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 9:58 PM
Начало » Статьи » Работа с файлами

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

Категория: Работа с файлами | Добавил: Admin (2006-12-17)
Просмотров: 1069 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: