delphi中如何实现模糊查找文件
2015-06-06 22:49
585 查看
procedure GetFilenames(sPath, sFilename: String; AList: TStrings);
//功能描述: 列出sPath目录中(不含子目录)所有文件名符合sFilename规则的文件名
//入口参数:
// sPath - 目录路径
// sFilename - 文件名
//出口参数:
// AList - sPath目录中所有符合的文件名被添加到了这一列表中
var
SR : TSearchRec;
begin
if FindFirst(sPath + sFilename, faReadOnly + faHidden + faSysFile + faArchive + faAnyFile, SR) = 0 then
begin
repeat
AList.Add(sPath + SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
调用举例: 在ListBox1中列出 d:\aaa*.*
GetFilenames ( 'd:\ ', 'aaa*.* ', ListBox1.Items);
//功能描述: 列出sPath目录中(不含子目录)所有文件名符合sFilename规则的文件名
//入口参数:
// sPath - 目录路径
// sFilename - 文件名
//出口参数:
// AList - sPath目录中所有符合的文件名被添加到了这一列表中
var
SR : TSearchRec;
begin
if FindFirst(sPath + sFilename, faReadOnly + faHidden + faSysFile + faArchive + faAnyFile, SR) = 0 then
begin
repeat
AList.Add(sPath + SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
调用举例: 在ListBox1中列出 d:\aaa*.*
GetFilenames ( 'd:\ ', 'aaa*.* ', ListBox1.Items);
相关文章推荐
- delphi 设置开机自动启动函数
- Delphi多线程编程之同步读写全局数据
- delphi与sqlite
- Delphi调用IE打开网页
- delphi之完美Splash方案
- Delphi XE8中的DBExpress使用ODBC方式连接MySQL 5.6.24 X64!!!!
- Delphi XE8中的DBExpress使用ODBC方式连接MySQL 5.6.24 X64!!!!
- Google的URL编码解码之delphi
- Delphi调用Android的.so文件(转)
- Delphi Android程序启动过程(转)
- 关于DELPHI XE8开发安卓,和自己开发的服务端通信
- Delphi应用程序的调试(连载,瓢虫原著)
- Delphi String 常用字串符处理函数
- delphi 2010多线程使用
- 【2015-6-5】Delphi学习笔记
- delphi “div”、“mod”、“\”除法运算符的区别与使用方法
- delphi VCL研究之消息分发机制(转)
- delphi使用 第三方控件
- 发现个delphi调用vc写的Dll中包含pchar参数报错奇怪现象
- delphi身份证验证