如何同时查找多个类型的文件

Question

用findfist好像只能查找一个类型,比如*.txt，
要查找多个类型的话要重复一次查找比如*.txt *.php的话要查找两次
能不能一次查找多个类型的文件呢。
比如：dir *.doc *.txt
多谢大家了。

Answer 1

procedure TForm1.btn1Click(Sender: TObject);
var
  liPath: TStringList;
  ser: tsearchRec;
  i: Integer;
begin
  liPath := TStringList.Create;
  liPath.Add('D:\pas\bak\*.rar');
  liPath.Add('D:\pas\bak\*.7z');
  liPath.Add('D:\pas\bak\*.zip');
  for I := 0 to liPath.Count - 1 do
  begin
    if FindFirst(liPath[], faAnyFile, ser) = 0 then
      repeat
        Memo1.Lines.Add(ser.Name); // 列出所有指定目录中的rar、7z、zip类型文件
      until (FindNext(ser) <> 0);
  end;  liPath.Free;
end;

Answer 2

liPath[i]   漏了自己补补