Delphi-DIFileFinder-高效搜索文件系统中的文件和文件夹

icy 今天 13 抢沙发

默认

摘要： DIFileFinder DIFileFinder 是一款专为 Borland/CodeGear Delphi（现 Embarcadero Delphi）开发的组件集合，主要用于高...

DIFileFinder

DIFileFinder 是一款专为 Borland/CodeGear Delphi（现 Embarcadero Delphi）开发的组件集合，主要用于高效搜索文件系统中的文件和文件夹。它支持根据特定属性（如日期、大小、文件类型）或名称模式（匹配或不匹配）进行精确查找，非常适合 Delphi 开发人员在应用程序中集成文件搜索功能。

主要特点

搜索模式支持：兼容标准通配符（如 * 和 ?）以及完整的 Perl 兼容正则表达式（PCRE），允许灵活的包含/排除过滤器。
高效架构：不同于传统组件使用事件或构建长文件列表，DIFileFinder 采用逐个返回文件/文件夹的方式，通过调用 Next 方法获取下一个匹配项，最大化灵活性并最小化资源消耗。
递归搜索：支持完整文件夹递归，同时允许随时跳过目录以避免不必要的递归。
过滤选项：包括文件/文件夹过滤、所有文件属性（包含/排除，如只读、隐藏）、完整路径和文件名过滤。还可以自定义过滤逻辑，通过重写 Validate 方法实现特定需求。
高级功能：支持按大小、日期、内容搜索，甚至在 ZIP 存档内搜索；界面直观，速度快，适用于大型目录扫描。

实例

uses
  DIFileFinder;

procedure SearchFilesExample;
var
  FileFinder: TDIFileFinder;
  FileItem: TDIFileItem;
begin
  // 创建 TDIFileFinder 实例
  FileFinder := TDIFileFinder.Create(nil);
  try
    // 设置搜索参数
    FileFinder.SearchPath := 'C:\MyDelphiProjects\'; // 搜索的根目录
    FileFinder.FileMasks.Add('*.pas'); // 只查找 Pascal 源文件
    FileFinder.IncludeSubDirs := True; // 包含子目录（递归搜索）
    FileFinder.FileAttributes := [faReadOnly, faArchive]; // 可选：限制文件属性

    // 开始搜索
    if FileFinder.FindFirst(FileItem) then
    begin
      repeat
        // 输出找到的文件信息
        Writeln('Found: ', FileItem.PathName, ' (Size: ', FileItem.Size, ' bytes, ',
                'Modified: ', DateTimeToStr(FileItem.Modified));
      until not FileFinder.FindNext(FileItem); // 继续查找下一个文件
    end
    else
      Writeln('No files found matching the criteria.');
  finally
    FileFinder.Free; // 释放资源
  end;
end;