存储单位格式化（B、KB、MB、GB、TB、PB）

原创于 2021-08-06 12:47:41 发布 · 269 阅读

·

0

·

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

2 篇文章

订阅专栏

本文档介绍了一个名为FormatSize的函数，用于将十进制的卡德inal数值转换为易读的文件大小单位（B, KB, MB, GB, TB, PB），通过计算并格式化输出。

function FormatSize(size:Cardinal):string;
const
  us:array [0..5] of string=('B','KB','MB','GB','TB','PB');
  u=1024;
var
  i:Integer;
  d:Double;
begin
  i:=0;
  d:=size;
  while d>u do
  begin   
    d:=d/u;
    Inc(i);
  end;
  Result:=Format('%.2f %s',[d,us[i]]);
end;