delphi 查找指定目录，指定扩展名的所有文件名

easyboot

于 2012-10-09 10:07:45 发布

阅读量5.1k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/easyboot/article/details/8051085

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一个使用Delphi语言编写的函数，用于在指定目录中查找并返回特定扩展名的文件名列表。通过该函数，可以高效地在Delphi应用程序中实现文件搜索功能。

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

function GetDirFileName(Dir,ExtName: string): TStringList;
var
  FSearchRec: TSearchRec;
  FileList: TStringList;
  FindResult: Integer;
begin
  if Dir[length(Dir)] <> '\' then
    Dir := Dir + '\';
  FileList := TStringList.Create;
  FindResult := FindFirst(Dir + '*.'+ExtName, faAnyFile, FSearchRec); //
  try
    while FindResult = 0 do
    begin
      if (FSearchRec.name <> '.') and (FSearchRec.name <> '..') then
        FileList.Add(LowerCase(Dir + FSearchRec.Name));
      FindResult := FindNext(FSearchRec);
    end;
  finally
    SysUtils.FindClose(FSearchRec);
    //FindClose(FSearchRec);
    dir := '';
  end;
  Result := FileList;
end;