delphi IOUtils TDirectory获取一个目录下所有文件名,包括子目录


本文整理自网络,侵删。

 
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.

相关阅读 >>

Delphi tpath.combine(); {结合路径}

Delphi tcxgrid的tcxgriddbtableview.viewdata.rows跟records有什么区别

Delphi 将svg加载到timage控件

Delphi报警声音 beep、messagebeep 和 windows.beep

Delphi 判断一个数组的长度用 length 还是 sizeof ?

Delphi 通过读取注册表信息获取桌面路径

Delphi android 安卓中保持屏幕常亮

Delphi7 写过卡巴主动防御服务端

Delphi中使用可修改的常量

Delphi读取和写入utf-8编码格式的文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...