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;
看起来就舒服了很多了,而且原生跨平台,那叫一个爽啊~
本文来源于Lonely Blog -全球网络安全资讯平台, 转载请注明出处: https://blog.wuhao13.xin/4409.html