Bytes in GB formatieren?

[Hawkeye219]

Hallo,

falls die Laufwerke mal etwas kleiner oder größer sind:

Delphi-Quellcode:

function FormatFileSize (aSize: Int64): string;

const 
  MB = Int64(1024 * 1024);
  GB = Int64(1024 * MB);
  TB = Int64(1024 * GB);
  PB = Int64(1024 * TB);

  cSize  : array [0..5] of Int64 = (1, 1024, MB, GB, TB, PB);
  cLabel : array [0..5] of string = ('B', 'KB', 'MB', 'GB', 'TB', 'PB');

var 
  lIndex : Integer;

begin
  lIndex := Ord(aSize >= cSize[1]) + Ord(aSize >= cSize[2])
            + Ord(aSize >= cSize[3]) + Ord(aSize >= cSize[4])
            + Ord(aSize >= cSize[5]);
  Result := Format('%g %s', [Int(100.0 * aSize / cSize[lIndex]) / 100, cLabel[lIndex]]);
end;

Gruß Hawkeye