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 dbgrid鼠标滚屏

Delphi settextbuf

Delphi实现保存和读取图片的方法

Delphi图像匹配算法

Delphi 字符转16进制、16进制转字符

Delphi asc转换成unicode

Delphi 查询进程名进程id/进程路径 父进程/子进程

Delphi tms web core messagedlg对话框 yes no

Delphi 检测url地址是否有效

Delphi format格式化函数

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

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