Функция FindClose в Delphi закрывает успешный FindFirst поиск файла.
SysUtils unit
function FindClose (var SearchResults : TSearchRec) : Integer;
Функция FindClose закрывает успешный FindFirst (и FindNext) поиск файла. Это освобождает ресурсы, используемые поиском в SearchResults.
Запрос FindCLose не обязателен, если FindFirst ничего не нашёл, но если он, что-то нашёл, то его просто необходимо вызвать, даже если последующий FindNext вызовет сбои.
Функция FindClose: Показываем, когда вызываем FindClose
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
Похожие функции, процедуры и команды
FileSearch — поиск файла в одной или более папках.
FindFirst — находит все файлы, соответствующие маске файла и атрибутов.
FindNext — находит следующий файл после успешного FindFirst.
TSearchRec — запись, используемая для хранения данных в FindFirst и FindNext.
