function FindNext ( var SearchResults : TSearchRec ) : Integer;
Описание
Функция FindNext ищет следующий соответствующий файл, как определено в критериях поиска, данных предыдущим запросом FindFirst. Найденные подробности файла сохраняются в SearchResults, и возвращаемое получает значение - 0. Иначе возвращаемое значение - отрицптельное.
Вы, должны выполнить успешный FindFirst перед запросом этой подпрограммы.
После запроса FindNext вы должны вызвать FindClose, в последний раз, чтобы освободить ресурсы.
FindFirst Находит все файлы, соответствующие маске файла и атрибутов
TSearchRec Запись, используемая для хранения данных в FindFirst и FindNext
Пример кода : Поиск всех файлов Unit1.d* в текущем каталоге
var
searchResult : TSearchRec;
begin // Пробуем найти правильные
файлы в текущем каталоге, соответствующие шаблону Unit1.d*
if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('Имя файла = '+searchResult.Name);
ShowMessage('Размер файла = '+IntToStr(searchResult.Size));
until FindNext(searchResult) <> 0; // Должен освободить
ресурсы, используемые этими успешными, поисками
FindClose(searchResult);
end;
end;
Имя файла = Unit1.dcu
Размер файла = 4382
Имя файла = Uni1.dfm
Размер файла = 524
Имя файла = Uni1.ddp
Размер файла = 51
