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

最新推荐文章于 2025-09-11 11:42:15 发布

转载最新推荐文章于 2025-09-11 11:42:15 发布 · 974 阅读

Delphi 专栏收录该内容

17 篇文章

订阅专栏

本文提供了一个使用 Delphi 编写的算法，用于遍历指定目录下的所有文件，支持过滤特定文件扩展名。

部署运行你感兴趣的模型镜像

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;

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;

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

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;

您可能感兴趣的与本文相关的镜像

Stable-Diffusion-3.5

图片生成

Stable-Diffusion

Stable Diffusion 3.5 (SD 3.5) 是由 Stability AI 推出的新一代文本到图像生成模型，相比 3.0 版本，它提升了图像质量、运行速度和硬件效率