TDirectory.GetFiles获取指定目录下的文件

使用函数：

System.IOUtils.TDirectory.GetFiles

所有重载：

class function GetFiles(const Path: string): TStringDynArray;
class function GetFiles(const Path: string;  const Predicate: TFilterPredicate): TStringDynArray;
class function GetFiles(const Path, SearchPattern: string): TStringDynArray;
class function GetFiles(const Path, SearchPattern: string;  const Predicate: TFilterPredicate): TStringDynArray;
class function GetFiles(const Path, SearchPattern: string;  const SearchOption: TSearchOption): TStringDynArray; overload; static;
class function GetFiles(const Path, SearchPattern: string;  const SearchOption: TSearchOption; const Predicate: TFilterPredicate): TStringDynArray; overload; static;
class function GetFiles(const Path: string;  const SearchOption: TSearchOption; const Predicate: TFilterPredicate): TStringDynArray; overload; static;

参数说明和TDirectory.GetDirectories一样，只是目录换成文件

异常处理： 目录无效或目录不存在

示例：获取指定目录下，文件名包含'a'且不为隐藏属性的所有txt文本文件。

　　代码部分：

var
    sFile: string;
    fp: TDirectory.TFilterPredicate;
begin
    //
    fp := function(const Path: string; const SearchRec: TSearchRec): Boolean
        begin
            Result := (Pos('a', SearchRec.Name) > 0) and
              (SearchRec.Attr and faHidden <> faHidden); //文件名包含'a'且不为隐藏文件
        end;
    try
        for sFile in TDirectory.GetFiles(
                'H:\tmp1', //'H:\tmp1'
                '*.txt', //后缀为.txt
                TSearchOption.soAllDirectories,// 'H:\tmp1'目录下的所有文件
                fp) do
            ListBox1.Items.Add(sFile);
    except
        on e: Exception do
        begin
            MessageDlg(e.Message, mtError, [mbok], 0);
            Exit;
        end;
    end;
end;

 

转载于:https://www.cnblogs.com/cause/p/3500100.html