ByteToStr

最新推荐文章于 2023-09-14 11:59:25 发布

seagull327

最新推荐文章于 2023-09-14 11:59:25 发布

阅读量1.7k

点赞数

分类专栏：字符串文章标签： div function byte

本文链接：https://blog.csdn.net/haiou327/article/details/6621543

版权

字符串专栏收录该内容

14 篇文章 0 订阅

订阅专栏

function ByteToStr(const i64Size:Int64):string;
const
  i64GB=1024*1024*1024;
  i64MB=1024*1024;
  i64KB=1024;
begin
  if i64Size div i64GB > 0 then
    Result:=Format('%.2f GB',[i64Size/i64GB])
  else if i64Size div i64MB > 0 then
    Result := Format('%.2f MB',[i64Size/i64MB])
  else if i64Size div i64KB > 0 then
    Result := Format('%.2f KB',[i64Size/i64KB])
  else
    Result := IntToStr(i64Size)+'Byte(s)';
end;