另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用法都一样.

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses IOUtils, Types;const path = 'C:\Program Files\Embarcadero\RAD Studio\7.0';//获取指定目录下的文件与子目录
procedure TForm1.Button1Click(Sender: TObject);
vardfs: TStringDynArray;str: string;
begindfs := TDirectory.GetFileSystemEntries(path);Memo1.Clear;for str in dfs do Memo1.Lines.Add(str);
end;//获取指定目录下的、名称是 L 开头的文件与子目录
procedure TForm1.Button2Click(Sender: TObject);
vardfs: TStringDynArray;str: string;
begindfs := TDirectory.GetFileSystemEntries(path, 'L*');Memo1.Clear;for str in dfs do Memo1.Lines.Add(str);
end;//获取指定目录及嵌套目录下的所有文件与子目录
procedure TForm1.Button3Click(Sender: TObject);
vardfs: TStringDynArray;str: string;
begindfs := TDirectory.GetFileSystemEntries(path + '\source', TSearchOption.soAllDirectories, nil);Memo1.Clear;for str in dfs do Memo1.Lines.Add(str);
end;//使用 TDirectory.TFilterPredicate 函数参数
procedure TForm1.Button4Click(Sender: TObject);
vardfs: TStringDynArray;
beginMemo1.Clear;dfs := TDirectory.GetFileSystemEntries(path,function(const Path: string; const SearchRec: TSearchRec): Booleanbegin//这里可以有更多过滤条件或其他处理Memo1.Lines.Add(Path + '\' + SearchRec.Name);end);
end;end.