Delphi 列出目录下的文件

最新推荐文章于 2021-06-03 10:22:50 发布

qiume

最新推荐文章于 2021-06-03 10:22:50 发布

阅读量2.7k

点赞数

分类专栏： Delphi 文章标签： delphi function string

Delphi 专栏收录该内容

66 篇文章

订阅专栏

本文介绍了一段用于搜索和遍历指定目录下所有文件和子目录的代码实现，包括文件和目录的名称处理，以及递归调用自身来处理子目录。

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

function ListFiles(Dir: String):TStrings; var FSearchRec: TSearchRec; FileList: TStrings; FindResult: Integer; begin if Dir[length(Dir)]<>'/' then Dir:=Dir+'/'; FileList :=TStringList.Create; FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec); while FindResult = 0 do begin if ((FSearchRec.Attr and faDirectory) = 0) then //文件 begin FileList.Add('文件:'+LowerCase(Dir+FSearchRec.Name)); end; if ((FSearchRec.Attr and faDirectory) <> 0) then begin if ((FSearchRec.Name<> '.') and (FSearchRec.Name <> '..')) then //文件夹 begin ListFiles(dir+FileRec.Name); end; end; FindResult:=FindNext(FSearchRec); end; FindClose(FSearchRec); ListFiles:=FileList; end;