如何实现多扩展名文件搜索？现有代码仅匹配首个扩展名

你的代码逻辑是先尝试查找所有.bak文件，只有当找不到任何.bak文件时才会去查找.zip文件，这就是只会返回其中一类文件的核心原因。要实现同时搜索两种扩展名的文件，以下是几种可行方案：

方案一：分别遍历两类扩展名，复用处理逻辑 #

先遍历完所有.bak文件，再遍历所有.zip文件，把文件处理逻辑抽成独立过程复用：

var 
  s: TSearchRec;
  ArchivePath: string; // 替换为你的实际路径变量

procedure ProcessFile(const FileName: string);
begin
  // 这里编写对找到文件的处理逻辑，比如添加到列表、输出文件名等
  Writeln(FileName);
end;

procedure FindArchiveFiles;
begin
  ArchivePath := Archive;
  // 处理所有.bak文件
  if FindFirst(ArchivePath + '*.bak', faNormal + faReadOnly, s) = 0 then
  begin
    repeat
      ProcessFile(ArchivePath + s.Name);
    until FindNext(s) <> 0;
    FindClose(s);
  end;
  // 处理所有.zip文件
  if FindFirst(ArchivePath + '*.zip', faNormal + faReadOnly, s) = 0 then
  begin
    repeat
      ProcessFile(ArchivePath + s.Name);
    until FindNext(s) <> 0;
    FindClose(s);
  end;
end;

注意：每次遍历完成后必须调用FindClose释放系统资源，避免内存泄漏。

方案二：先收集所有符合条件的文件，再统一处理 #

如果需要先汇总所有目标文件再做处理，可以用TStringList存储结果：

var 
  s: TSearchRec;
  ArchivePath: string;
  FileList: TStringList;

procedure ProcessFile(const FileName: string);
begin
  Writeln(FileName);
end;

procedure FindArchiveFiles;
begin
  FileList := TStringList.Create;
  try
    ArchivePath := Archive;
    // 收集.bak文件
    if FindFirst(ArchivePath + '*.bak', faNormal + faReadOnly, s) = 0 then
    begin
      repeat
        FileList.Add(ArchivePath + s.Name);
      until FindNext(s) <> 0;
      FindClose(s);
    end;
    // 收集.zip文件
    if FindFirst(ArchivePath + '*.zip', faNormal + faReadOnly, s) = 0 then
    begin
      repeat
        FileList.Add(ArchivePath + s.Name);
      until FindNext(s) <> 0;
      FindClose(s);
    end;
    // 统一处理所有文件
    for var i := 0 to FileList.Count - 1 do
    begin
      ProcessFile(FileList[i]);
    end;
  finally
    FileList.Free;
  end;
end;

方案三：通过Windows API单次遍历筛选（高效版） #

如果目录文件数量较多，可通过Windows原生API单次遍历目录，再筛选扩展名，减少系统调用次数：

uses
  Windows, SysUtils;

var
  FindData: TWin32FindData;
  hFind: THandle;
  ArchivePath: string;

procedure ProcessFile(const FileName: string);
begin
  Writeln(FileName);
end;

procedure FindArchiveFiles;
begin
  ArchivePath := Archive;
  hFind := FindFirstFile(PChar(ArchivePath + '*.*'), FindData);
  if hFind <> INVALID_HANDLE_VALUE then
  begin
    repeat
      // 跳过目录和系统文件
      if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
      begin
        const Ext = LowerCase(ExtractFileExt(FindData.cFileName));
        if (Ext = '.bak') or (Ext = '.zip') then
        begin
          ProcessFile(ArchivePath + FindData.cFileName);
        end;
      end;
    until not FindNextFile(hFind, FindData);
    FindClose(hFind);
  end;
end;

内容的提问来源于stack exchange，提问作者John Barrat