Функція FindFirst – знаходить усі файли, що відповідають масці файлу та атрибутів

Функція FindFirst в Delphi знаходить усі файли, що відповідають масці файлу та атрибутів.

Функція FindFirst: Шукаємо всі підходящі під 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;

Функція FindFirst: Шукаємо всі каталоги вище, включаючи поточний

var
  searchResult : TSearchRec;

begin
  // Пробуємо знайти каталоги вище за поточний каталог
  SetCurrentDir('..');

  if FindFirst('*', faDirectory, searchResult) = 0 then
  begin
    repeat
      // Показуємо лише каталоги
      if (searchResult.attr and faDirectory) = faDirectory
      then ShowMessage('Directory = '+searchResult.Name);
    until FindNext(searchResult) <> 0;

    // Повинен звільнити ресурси, що використовуються цими успішними пошуками
    FindClose(searchResult);
  end;
end;