Delphi - 获取文件大小
2021-02-05 17:14
阅读：577
标签：message 小数 col code result 返回 mes res path GetFileSize获取文件大小 封装成如下函数，可以直接使用： Delphi - 获取文件大小 标签：message 小数 col code result 返回 mes res path 原文地址：https://www.cnblogs.com/jeremywucnblog/p/11438000.html
1 ///函数功能：获取文件大小，单位取KB，小数自动进位
2 ///参数：sFilePath文件全路径
3 ///Result: 成功是返回文件大小，失败时返回‘N‘
4 function GetFileSize(sFilePath: string): string;
5 begin
6 try
7 result := IntToStr(Ceil(FileSizeByName(sFilePath) / 1024));
8 except
9 on E: Exception do
10 begin
11 result := ‘N‘;
12 MessageDlg(‘Opps! Error Info[‘ + E.Message + ‘]‘, mtError, [mbOK], 0);
13 Abort;
14 end;
15 end;
16 end;
评论
亲，登录后才可以留言！