delphi 字节数转换为KB或MB字符串

本文整理自网络，侵删。

 
//delphi 字节数转换为KB或MB字符串
function BytesToStr(iBytes: Integer): String;
var
iKb: Integer;
begin
iKb := Round(iBytes / 1024);
if iKb > 1000 then
Result := Format(‘%.2f MB‘, [iKb / 1024])
else
Result := Format(‘%d KB‘, [iKb]);
end;
 

相关阅读 >>

Delphi memo1 行倒序排列三种方法

Delphi获得硬盘所有分区

Delphi adoquery查询更改用户

Delphi not 与整数

Delphi xe 播放 gif 动画

Delphi 在电脑屏幕上显示图片

Delphi 正则表达式校验手机号

Delphi 类的声明

Delphi 用input连续记录所输入的次数

cvcode.pas

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

转载请注明出处：木庄网络博客 » delphi 字节数转换为KB或MB字符串