本文整理自网络,侵删。
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 extractclassname 字符串处理函数
更多相关阅读请进入《Delphi》频道 >>