Delphiでフォルダを検索する方法は何ですか？

Delphiでフォルダを走査するには、以下の方法を使用できます：

1. TDirectoryクラスとTDirectory.GetFilesメソッドを使用して、フォルダー内のファイルを走査します。以下はサンプルコードです：

uses
  System.IOUtils;

procedure TraverseFolder(const AFolder: string);
var
  Files: TArray<string>;
  FileName: string;
begin
  Files := TDirectory.GetFiles(AFolder);
  for FileName in Files do
  begin
    // Do something with the file
    ShowMessage(FileName);
  end;
end;

1. TDirectoryクラスとTDirectory.GetDirectoriesメソッドを使用して、フォルダ内のサブフォルダを取得します。以下はサンプルコードです：

uses
  System.IOUtils;

procedure TraverseFolder(const AFolder: string);
var
  Directories: TArray<string>;
  SubFolder: string;
begin
  Directories := TDirectory.GetDirectories(AFolder);
  for SubFolder in Directories do
  begin
    // Do something with the subfolder
    ShowMessage(SubFolder);
  end;
end;

これらの方法を使用すると、フォルダやその内容を検索して操作することができます。