本文整理自网络,侵删。
function SizeToStr(Size: int64): string; const K = int64(1024); M = K * K; G = K * M; T = K * G; begin if size < K then Result := Format('%d bytes', [size]) else if size < M then Result := Format('%f KB', [size / K]) else if size < G then Result := Format('%f MB', [size / M]) else if size < T then Result := Format('%f GB', [size / G]) else Result := Format('%f TB', [size / T]); end;
相关阅读 >>
Delphi 禁止用键盘左右箭头,去切换pagecontrol页签
Delphi下idhttp配合cookiemanager获取cookie
Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能
更多相关阅读请进入《Delphi》频道 >>