delphi SizeToStr 文件大小转换KB MB GB TB

本文整理自网络，侵删。

 
function SizeToStr(Size: int64): string;
  const
    K = int64(1024);
    M = K * K;
    G = K * M;
    T = K * G;
  begin
    if size < K then
      Result := Format('%d bytes', [size])
    else if size < M then
      Result := Format('%f KB', [size / K])
    else if size < G then
      Result := Format('%f MB', [size / M])
    else if size < T then
      Result := Format('%f GB', [size / G])
    else
      Result := Format('%f TB', [size / T]);
  end;
 

相关阅读 >>

橙子作品 bds/cds 下的 web deploy 工具

Delphi xe 提权代码

Delphi获取我的文档路径

Delphi从memo去重数据

Delphi通过idsmtp发送邮件的简单代码

Delphi edit 让密码变成点

Delphi 无dll版下载者

Delphi webbrowser1 保存文档为 .mht

Delphi 文件大小 显示k kb mb gb tb

Delphi shellexecute 打开文件夹

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

转载请注明出处：木庄网络博客 » delphi SizeToStr 文件大小转换KB MB GB TB