delphi - サイズをバイト単位で KB、MB、GB に変換する正しい方法 Delphi

Question

Delphiでバイト単位のサイズをKB、MB、GBに変換する正しい方法は何ですか?

Answer 1

Delphi ソリューションが必要だと思います。これを試して

uses
  Math;
function ConvertBytes(Bytes: Int64): string;
const
  Description: Array [0 .. 8] of string = ('Bytes', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
var
  i: Integer;
begin
  i := 0;

  while Bytes > Power(1024, i + 1) do
    Inc(i);

  Result := FormatFloat('###0.##', Bytes / IntPower(1024, i)) + ' ' + Description[i];
end;