Delphi XE后一种枚举文件的通用方式

之前枚举文件总是借助Windows的API进行枚举，总感觉不爽，最近在网上搜索了一下，终于发现Delphi其实是提供了一种更加简洁高效的枚举文件方式，代码如下：

uses
  System.IOUtils,
  System.Types;
procedure Run;
var
  dir:TDirectory;
  str:TStringList;
  SearchFileName:string;
  files:TStringDynArray;
  i: Integer;
begin
  files := dir.GetFiles('D:\TXT','*.txt',TSearchOption.soAllDirectories);
  for SearchFileName in files do
  begin
    str := TStringList.Create;
    str.LoadFromFile(SearchFileName);
    for i := 0 to str.Count - 1 do
    begin
       Run2(SearchFileName);
    end;
  end;
end;

看起来就舒服了很多了，而且原生跨平台，那叫一个爽啊~