本文整理自网络,侵删。
//整型
function TForm1.IFormatByte(nSize: Int64): string;
begin
if nSize > 1073741824 then
Result := FormatFloat('###,##0.00G', nSize / 1073741824)
else if nSize > 1048576 then
Result := FormatFloat('###,##0.00M', nSize / 1048576)
else if nSize > 1024 then
Result := FormatFloat('###,##00K', nSize / 1024)
else
Result := FormatFloat('###,#0B', nSize);
if Length(Result) > 2 then
if Result[1] = '0' then
Delete(Result, 1, 1);
end;
function TForm1.FFormatByte(fSize: Double): string;
begin
if fSize > 1073741824.0 then
Result := FormatFloat('###,##0.00G', fSize / 1073741824.0)
else if fSize > 1048576.0 then
Result := FormatFloat('###,##0.00M', fSize / 1048576.0)
else if fSize > 1024.0 then
//Result := FormatFloat('###,##00K', fSize / 1024.0)
Result := FormatFloat('###,##00.00K', fSize / 1024.0)
else
Result := FormatFloat('###,#0B', fSize);
if Length(Result) > 2 then
if Result[1] = '0' then
Delete(Result, 1, 1);
end;
相关阅读 >>
Delphi android实例-读取设备联系人(xe8+小米2)
Delphi windows 编程[1] - 窗体生成的过程一
Delphi+mysql:tadoquery使用插入中文乱码解决方法
Delphi xe android的所有权限按照分类总结说明
更多相关阅读请进入《Delphi》频道 >>