本文整理自网络,侵删。
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 idftp 错误:socket error 10054 �c connection reset by peer -连接被重置
Delphi winapi: getfocus - 获取当前拥有焦点的窗口的句柄
Delphi vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题
更多相关阅读请进入《Delphi》频道 >>