Справочник функций и процедур Delphi: FindClose

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

FindClose
Функция
Закрывает успешный FindFirst поиск файла SysUtils unit
  function FindClose ( var SearchResults : TSearchRec ) : Integer;

Google  
 
Описание
Функция FindClose закрывает успешный FindFirstFindNext) поиск файла. Это освобождает ресурсы, используемые поиском в SearchResults.

Запрос FindCLose не обязателен, если FindFirst ничего не нашёл, но если он, что-то нашёл, то его просто необходимо вызвать, даже если последующий FindNext вызовет сбои.
Похожие команды
FileSearch  Поиск файла в одной или более папках

FindFirst  Находит все файлы, соответствующие маске файла и атрибутов

FindNext  Находит следующий файл после успешного FindFirst

TSearchRec  Запись, используемая для хранения данных в FindFirst и FindNext

 
Пример кода : Показываем, когда вызываем 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook