如何在IOUtils函数中添加TFileAttribute开关

Question

下面显示了两个使用IOUtils计算文件夹和文件数量的函数。如何添加开关(CountHidden)以切换使用faHidden TFileAttribute对文件或文件夹进行计数？

function SubDirectoryCount( const Path: string; const CountHidden: boolean; const Recurse: boolean ): Cardinal;
    { Counts all the sub-directories of a specified directory. If Recurse is true
      all sub-directories are counted recursively, otherwise only immediate
      sub-directories are counted. Count Hidden toggles counting hidden files (faHidden). }
    var
      StrArray: Types.TStringDynArray; // array of subdirectories
      SearchOption: IOUtils.TSearchOption; // directory search option
    begin
      if Recurse then
        SearchOption := IOUtils.TSearchOption.soAllDirectories
      else
        SearchOption := IOUtils.TSearchOption.soTopDirectoryOnly;
      StrArray := IOUtils.TDirectory.GetDirectories( Path, '*', SearchOption );
      Result := length( StrArray );
    end;

    function SubDirectoryFileCount( const Path: string; const CountHidden: boolean; const Recurse: boolean ): Cardinal;
    { Counts all the files of a specified directory. If Recurse is true
      files in all sub-directories are counted recursively, otherwise only immediate
      sub-directories are counted. Count Hidden toggles counting hidden files (faHidden).}
    var
      StrArray: Types.TStringDynArray; // array of subdirectories
      SearchOption: IOUtils.TSearchOption; // directory search option
    begin
      if Recurse then
        SearchOption := IOUtils.TSearchOption.soAllDirectories
      else
        SearchOption := IOUtils.TSearchOption.soTopDirectoryOnly;
      StrArray := IOUtils.TDirectory.GetFiles( Path, '*', SearchOption );
      Result := length( StrArray );
    end;

另外，这两个函数有什么可以改进的地方吗？我在Windows 7上使用的是Delphi 2010。

Answer 1

您可以使用TDirectory.TFilterPredicate类。

检查这些示例

function SubDirectoryCount( const Path: string; const CountHidden: boolean; const Recurse: boolean ): Cardinal;
var
  StrArray     : Types.TStringDynArray;
  SearchOption : IOUtils.TSearchOption;
  Predicate    : TDirectory.TFilterPredicate;
begin
  if Recurse then
    SearchOption := IOUtils.TSearchOption.soAllDirectories
  else
    SearchOption := IOUtils.TSearchOption.soTopDirectoryOnly;

  Predicate := function(const Path: string; const SearchRec: TSearchRec): Boolean
                     begin
                       Result := (SearchRec.Attr and faHidden)=0;
                     end;

  if CountHidden then
    StrArray := IOUtils.TDirectory.GetDirectories( Path, '*', SearchOption)
  else
    StrArray := IOUtils.TDirectory.GetDirectories( Path, '*', SearchOption, Predicate);

  Result := length(StrArray);
end;

function SubDirectoryFileCount( const Path: string; const CountHidden: boolean; const Recurse: boolean ): Cardinal;
var
  StrArray     : Types.TStringDynArray;
  SearchOption : IOUtils.TSearchOption;
  Predicate    : TDirectory.TFilterPredicate;
begin
  if Recurse then
    SearchOption := IOUtils.TSearchOption.soAllDirectories
  else
    SearchOption := IOUtils.TSearchOption.soTopDirectoryOnly;

  Predicate := function(const Path: string; const SearchRec: TSearchRec): Boolean
               begin
                Result := (SearchRec.Attr and faHidden)=0;
               end;

  if CountHidden then
    StrArray := IOUtils.TDirectory.GetFiles( Path, '*', SearchOption )
  else
    StrArray := IOUtils.TDirectory.GetFiles( Path, '*', SearchOption, Predicate);

  Result := length(StrArray);
end;