delphi 查找某目录下的特定文件


本文整理自网络,侵删。

 procedure ChangeDir(dir: string; SL: TStringList);
var
SearchRec : TSearchRec;
Attr : integer;
Found : integer;
ExtFileName:string;
temstr:string;
begin
SL.Clear;
//查找该目录下所有*.jpg的文件,并将文件路径及文件名添加到SL
temstr:=dir+'\*.jpg';
Attr := faAnyFile;
Found := FindFirst(temstr, Attr, SearchRec);
while Found = 0 do
begin
//获取扩展名
//ExtFileName:=LowerCase(ExtractFileExt(SearchRec.Name));
try
SL.Add(dir+'\'+SearchRec.Name);
except
end;
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

相关阅读 >>

Delphi 窗体只显示控件

Delphi实现获取文件及文件夹大小(支持超过2g的大文件)

Delphi 检验手机号 ismobilenumber

Delphi内联汇编的一点心得

Delphi url编码与解码工具附代码

Delphi 2009 之 tcategorypanelgroup[4]: height

Delphi中emptyparam参数被改写问题

Delphi 如何打开记事本并显示指定内容

Delphi xe8中的firemonkey应用程序将文本复制到剪贴板

Delphi 批量生成 a到z 字母

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...