查找文件时有多个匹配条件时如何写？

[abcdefg171459]

findfirst('c:\fsdf\'+'*8301.TXT,*8307.TXT,*8901.TXT,*8905.TXT', faanyfile + fahidden +
fasysfile + fareadonly, searchrec);
就是查找文件名以8301或者8307，或者8901或者8905结尾的.txt文件,在findfirst函数里如何写呢？

[swayi21]

写一个通用的函数，里面用FindFirst, FindNext等及其它处理，
分别把你的8301, 8307等传进去，
一次性传进去的没玩过。

[fangsp]

var
  tempStr : String ;
  searchRec: TsearchRec;
  ret : Integer;  
Begin
  tempStr := DirName + '*.*';
  ret := FindFirst(tempStr ,faAnyFile	,searchRec) ;
  while ret = 0 do
    begin
      if (Pos('8301.TXT',searchRec.Name)>0) 
         or  (Pos(8307.TXT',searchRec.Name)>0) 
         or  (Pos(8091.TXT',searchRec.Name)>0)   //这里写你想要的条件
         or  (Pos(8095.TXT',searchRec.Name)>0) then 
        begin
          memo1.Lines.Add(DirName + searchRec.Name) ;
        end;
      ret := FindNext(searchRec);
    end;

FindClose(searchRec) ;
END;

[fangsp]

不好意思 上面的代码 有点问题

var
  tempStr : String ;
  searchRec: TsearchRec;
  ret : Integer;  
Begin
  tempStr := DirName + '*.*';
  ret := FindFirst(tempStr ,faAnyFile    ,searchRec) ;
  while ret = 0 do
    begin
      if (Pos('8301.TXT',searchRec.Name)>0) 
         or  (Pos('8307.TXT',searchRec.Name)>0) 
         or  (Pos('8091.TXT',searchRec.Name)>0)   //这里写你想要的条件
         or  (Pos('8095.TXT',searchRec.Name)>0) then 
        begin
          memo1.Lines.Add(DirName + searchRec.Name) ;
        end;
      ret := FindNext(searchRec);
    end;
FindClose(searchRec) ; 
END;

[mdejtod]

在查找函数中进行文件名匹配
不过比较麻烦些

[qkhhxkj102]

要是我就会用一个数组保存要找的文件名,再多数组里读取文件名,查找就好了