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;
存储单位格式化(B、KB、MB、GB、TB、PB)
最新推荐文章于 2023-11-21 09:58:19 发布