findfirst查找多种文件类型

Question

分两次进行：）
一次找pas，一次找dcuhehe~~听后面的老大的……

Answer 1

Var   SearchRec : TSearchRec;
      Found     : Integer;
      Ext       : String;
Begin
  Found := FindFirst( sfn, faAnyFile And (Not faDirectory) And (Not faVolumeID), SearchRec );
  Try
    While Found = 0 Do
    Begin
      ext := Upperase(ExtractFileExt( SearchRec.Name )); 
      If (ext='PAS') Or (ext='DCU') Then
         你的操作；
      Inc(Result);
      Found := FindNext( SearchRec );
    End;
  Finally
    FindClose( SearchRec );
  End;
End;

Answer 2

补充，sfn为搜索路径，如 sfn:='c:\windows\*.*';

Answer 3

这我也知道；就不能有一个合适的分隔符把多种文件类型串联起来吗？
windows中的收索也是依次跟你的后缀名比较吗
我只是举了一个.pas.dcu的例子
如果查询 *.pas;  dd3*.frm;  *.~*; *.e?? 之类由用户输入的查询条件由该怎么办 

Answer 4

我也知道；就不能有一个合适的分隔符把多种文件类型串联起来吗？
windows中的收索也是依次跟你的后缀名比较吗
我只是举了一个.pas.dcu的例子
如果查询 *.pas;  dd3*.frm;  *.~*; *.e?? 之类由用户输入的查询条件由该怎么办

Answer 5

如果查询 *.pas;  dd3*.frm;  *.~*; *.e?? 之类由用户输入的查询条件由该怎么办

Answer 6

可以你怕麻烦,可以每一个类型都Find一次啊.否则只有Find *.*然后进行判断乐.

Answer 7

就find *.*
然后判断文件名呗
或者用API --findfirstfile也可
次API也不支持多个呀