uses IOUtils,Types;

function FList(const ASourFile: string): TStrings;

var

    a: TStringDynArray;

    i: integer;

begin

   result := TStringList.Create;

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

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

   result.add(a[i]);  // 文件名 + 创建时间

end;

procedure TForm1.Button1Click(Sender: TObject);

var

filelist:tstringlist;

begin

filelist:=tstringlist.Create;

filelist.AddStrings(FList('D:\delphizj'));

memo1.text:=inttostr(filelist.count);

end;

end.