Функція FindClose – закриває успішний FindFirst пошук файлу

Функція FindClose в Delphi закриває успішний FindFirst пошук файлу.

Функція 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;