Delphi 根据扩展名的文件搜索

本文整理自网络，侵删。

 
procedure GetAllFilesEM(Path, ExtMask: String; List: TStrings;
  SubFolder: Boolean);
var
 Attrib, k: Integer;
 Search: TSearchRec;
begin
 Attrib := faArchive + faReadOnly + faHidden;

 if Path[Length(Path)] <> '\' then Path := Path + '\';

 with TStringList.Create do
 try
   CommaText := ExtMask;

   for k := 0 to Count - 1 do
   if FindFirst(Path + '*.' + Strings[k], Attrib, Search) = 0 then
     repeat
       List.Add(AnsiUpperCase(Path + Search.Name));
     until FindNext(Search) <> 0;

   FindClose(Search);
 finally Free end;

 if SubFolder then
 begin
   if FindFirst(Path + '*.*', faDirectory, Search) = 0 then
   begin
     repeat
       if ((Search.Attr and faDirectory) = faDirectory) and
         (Search.Name[1] <> '.') then
         GetAllFilesEM(Path + Search.Name, ExtMask, List, SubFolder);
         Application.ProcessMessages ;
     until FindNext(Search) <> 0;

     FindClose(Search);
   end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetAllFilesEM('d:\', '*.py', Memo1.Lines, True);
end;
 

相关阅读 >>

Delphi xe版本 运行cmd命令，并取得输出字符

Delphi xe5 将Delphi code从winos 迁移到ios与android

Delphi 设计一个有渐变色的标签

Delphi 中英文字符怎么按固定长度截断

Delphi dbnavigator控件的按钮显示成中文

Delphi列表控件tlistview定位到某一行

Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法

Delphi中如何将一整个文件读入内存

Delphi 代替pos的函数

Delphi 监控文件系统

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

转载请注明出处：木庄网络博客 » Delphi 根据扩展名的文件搜索