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;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678