本文整理自网络,侵删。
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 decodeutf8str解决系统自带utf8解码缺陷
Delphi xe5 android获取手机联系人,并用listview显示
更多相关阅读请进入《Delphi》频道 >>