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

标签