Функція FindNext – знаходить наступний файл після успішного FindFirst

Функція FindNext в Delphi знаходить наступний файл після успішного FindFirst.

Функція FindNext: Пошук усіх файлів Unit1.d* у поточному каталозі

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;