[delphi技术]文件搜索等几个文件处理函数

最新推荐文章于 2022-12-29 09:23:16 发布

hbh1

最新推荐文章于 2022-12-29 09:23:16 发布

阅读量1.3k

点赞数

分类专栏： ---技术文章--- 文章标签： delphi integer string list

本文链接：https://blog.csdn.net/hbh1/article/details/462782

版权

本文介绍了两个Delphi中用于文件处理的重要函数：SearchFile用于搜索指定路径下匹配特定类型的文件，而CheckFileName则用于检查并替换文件名中的非法字符。SearchFile通过遍历目录和子目录来查找匹配的文件，并将结果添加到列表中。CheckFileName函数则确保文件名符合系统规定，避免包含特殊字符。

摘要由CSDN通过智能技术生成

//搜索函数
procedure SearchFile(mainpath: string; ExpList: TStringList; var list:
 TStringList; SearchChildDir: Boolean = True);
//ExpList　文件类型
var
 SearchRec: TsearchRec;
 i: integer;
begin
 if FindFirst(mainpath + '*', faAnyFile, SearchRec) = 0 then
 begin
 repeat
 Application.ProcessMessages;
 if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
 Continue;
 if ((SearchRec.attr and fadirectory) <> fadirectory) then //如果是文件
 for i := 0 to ExpList.Count - 1 do
 begin
 if AnsiEndsText(ExpList.Strings[i], SearchRec.Name) then
 begin
 list.Add(Mainpath + SearchRec.Name);
 Break;
 end;
 end
 else
 if SearchChildDir then
 Searchfil