Delphi 查询目录下符合条件的所有文件

procedure TfrmMain.FindAllFiles(const APath: string; AFiles,
  ALines: TStrings; const APropty: String; IsAddPath: Boolean);
var
  FS: TSearchRec;
  FPath: String;
  AddPath,tmpstr,tmppath: string;
begin
  FPath := IncludeTrailingPathDelimiter(APath);
  AddPath := IfThen(IsAddPath, FPath, '');
  tmpstr := '*.*';
  if FindFirst(FPath + tmpstr, faAnyFile, FS) = 0 then
  begin
    repeat
    if (FS.Name <> '.') and (FS.Name <> '..') then
      if ((FS.Attr and faDirectory) <> 0) then
        FindAllFiles(FPath + FS.Name, AFiles,ALines, tmpstr, IsAddPath)
      else
      begin
        if Pos('行.csv',FS.Name) > 0 then
        begin
          tmppath := Copy(AddPath,1,Length(AddPath)-1);
          ALines.Add(Copy(tmppath,LastDelimiter('\',tmppath)+1,Length(tmppath)));
          AFiles.Add(AddPath + FS.Name);
        end;
      end;
    until FindNext(FS) <> 0;
    SysUtils.FindClose(FS);
  end;
end;