Delphi下遍历文件夹下所有文件的递归算法

最新推荐文章于 2022-12-29 09:23:16 发布

whw6_faye

最新推荐文章于 2022-12-29 09:23:16 发布

阅读量1.2w

点赞数

CC 4.0 BY-SA版权

文章标签： delphi 算法 integer string

本文链接：https://blog.youkuaiyun.com/whw6_faye/article/details/1504331

本文介绍了一个实用的过程，用于遍历指定文件夹及其子文件夹下的文件，并提供了代码示例。该过程可以根据需要筛选特定扩展名的文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在实际开发中经常需要遍历某个文件夹及其子文件夹下的文件，看到很多人不知道如何做，忍不住写段东西与大家分享。

procedure MakeTree(var slFile: TStrings; const FileExt: string);
var
  Sr : TSearchRec;
  Err : integer;
  TrSize, FilePath : string;
begin
  Err:=FindFirst('*.*', $11, Sr) ;
  While (Err = 0) do
  begin
    if Sr.Name[1] <> '.' then
    begin
      if FileExt = '' then
        slFile.Add(sr.Name)
      else
      begin
        if AnsiUpperCase(Copy(sr.Name, Length(sr.Name) - 3, 4)) = AnsiUpperCase(FileExt) then
          slFile.Add(sr.Name);
      end;
    end;
    if ((Sr.Attr and faDirectory) <> 0) AND (Sr.Name[1] <> '.') then
    begin
      ChDir(Sr.Name) ;
      MakeTree(slFile, FileExt);
      ChDir('..') ;
    end ;

    Err:=FindNext(Sr) ;
  end ;
end;

slFile 传入一个字符串列表以保存得到的结果, FileExt 为 '' 可以遍历所有文件，FileExt 指定为 ".Txt" 或者 ".mp3" 可以指定查询文件的后缀名.

如果需要将目录也返回，可以修改一下代码。