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