//整型
function TForm1.IFormatByte(nSize: Int64): string;
begin
  if nSize > 1073741824 then
    Result := FormatFloat('###,##0.00G', nSize / 1073741824)
  else if nSize > 1048576 then
    Result := FormatFloat('###,##0.00M', nSize / 1048576)
  else if nSize > 1024 then
    Result := FormatFloat('###,##00K', nSize / 1024)
  else
    Result := FormatFloat('###,#0B', nSize);
  if Length(Result) > 2 then
    if Result[1] = '0' then
      Delete(Result, 1, 1);
end;

function TForm1.FFormatByte(fSize: Double): string;
begin
  if fSize > 1073741824.0 then
    Result := FormatFloat('###,##0.00G', fSize / 1073741824.0)
  else if fSize > 1048576.0 then
    Result := FormatFloat('###,##0.00M', fSize / 1048576.0)
  else if fSize > 1024.0 then
    //Result := FormatFloat('###,##00K', fSize / 1024.0)
    Result := FormatFloat('###,##00.00K', fSize / 1024.0)
  else
    Result := FormatFloat('###,#0B', fSize);
  if Length(Result) > 2 then
    if Result[1] = '0' then
      Delete(Result, 1, 1);
end;