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

最新推荐文章于 2019-05-18 18:57:05 发布

原创最新推荐文章于 2019-05-18 18:57:05 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #string #list

---技术文章--- 专栏收录该内容

5 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//搜索函数
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
          Searchfile(mainpath + SearchRec.Name + '/', ExpList, list);
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end; //SearchFile

//替换文件名中的非法字符
function CHeckFileName(sFileName: string; sReplaceStr: string = ''): string;
var
  i: Integer;
  sChar: string;
const
  LawlessChar = '//:*?"<>|';
begin
  for i := 1 to Length(LawlessChar) do
  begin
    sChar := LawlessChar[i];
    StrReplace(sFileName, sChar, sReplaceStr);
  end;
  Result := sFileName;
end;

//被上上面用到的一个函数
procedure StrReplace(var s:String;substr1:String;substr2:String);
var
  i:Integer;
  ts:String;
begin
  ts:=s;
  s:='';
  i:=1;
  while True do
  begin
    if Copy(ts,i,length(substr1))=substr1 then
    begin
      s:=s+substr2;
      i:=i+length(substr1)
    end
    else
    begin
      s:=s+Copy(ts,i,1);
      i:=i+1;
    end;
    if i>length(ts) then break;
  end;
end;