本文整理自网络,侵删。
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);
相关阅读 >>
Delphi firedac压缩和修复ms access数据库
Delphi 2009 泛型容器单元(generics.collections)[2]: tqueue<t>
Delphi 读取图像文件base64编码加载到image组件显示图片
更多相关阅读请进入《Delphi》频道 >>