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

//搜索函数
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