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

本文整理自网络，侵删。

 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; 

相关阅读 >>

Delphi 获取系统启动文件夹路径

Delphi 判断两个时间差是否在一个指定范围内

Delphi 语言字符集

Delphi executewait运行一个程序等待其结束

Delphi 让scrollbox响应鼠标滚轮事件

Delphi 获取大于2g的物理内存大小

Delphi xe 跨平台（windows、android安卓、苹果macos、苹果ios）写法

Delphi idhttp最简洁的修改和取得cookie例子

Delphi实现文件拖放代码

Delphi 关闭xp保护 替换explorer.exe

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 查找指定目录，指定扩展名的所有文件名