Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Шифрование текста по паролю
   Категория: Текст и строки
  Компоненты TrackBar и ScrollBar
   Категория: Компоненты
  Форма всегда наверху
   Категория: Компоненты
  Сохраняем Bitmap в поле dbase
   Категория: Базы данных
  Что такое хук (hook)?
   Категория: Приложение
  Получить список запущенных приложений
   Категория: Приложение
  Определение размера файла
   Категория: Файловая система
  Компонент MainMenu
   Категория: Компоненты

Delphi - Справочник: FindClose

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 FindClose
function FindClose ( var SearchResults : TSearchRec ) : Integer;
Функция (Unit SysUtils)
Закрывает успешный FindFirst поиск файла
Описание:
Функция FindClose закрывает успешный FindFirst (и FindNext) поиск файла. Это освобождает ресурсы, используемые поиском в SearchResults.

Запрос FindCLose не обязателен, если 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

  << Вернуться