delphi IOUtils获取目录以及子目录下所有文件并显示进度

uses  IOUtils,Types;

var

  dirFiles : TStringDynArray;

  aFile : string;

a: TStringDynArray;

    i: integer;

begin

  {

方法1

   a := IOUtils.TDirectory.GetFiles(LabeledEdit_FielDir.Text,TSearchOption.soAllDirectories,nil);    // 获取一个目录下所有文件名，包括子目录

   ProgressBar1.Max := Length(a);

  ProgressBar1.Position := 0;

    for i := 0 to Length(a)-1 do

   begin

   Memo1.Lines.Add(a[i]);  // 文件名 + 创建时间

 ProgressBar1.StepBy(1);

   end;

     }

方法2

  dirFiles := TDirectory.GetFiles(LabeledEdit_FielDir.Text,TSearchOption.soAllDirectories,nil);

  ProgressBar1.Max := Length(dirFiles);

  ProgressBar1.Position := 0;

   for aFile in dirFiles do

  begin

    if TPath.MatchesPattern(ExtractFileName(aFile),'*.pas',true) then

    begin

      //do something with .PAS files that could take time

    end;

    Memo1.Lines.Add(aFile);

  ProgressBar1.StepBy(1);

  end;