Byte --> Kb/Mb/Gb

[ByTheTime]

Hallo,
ich benutze folgende Routine um Byte(s) in eine für den Anwender schönere Darstellung umzuwandeln:

Delphi-Quellcode:

function FormatByteSize(const bytes: Longint): string;
const
  B = 1; // byte
  KB = 1024 * B; // kilobyte
  MB = 1024 * KB; // megabyte
  GB = 1024 * MB; // gigabyte
begin
  if bytes > GB then
    result := FormatFloat('#.## GB', bytes / GB)
  else if bytes > MB then
    result := FormatFloat('#.## MB', bytes / MB)
  else if bytes > KB then
    result := FormatFloat('#.## KB', bytes / KB)
  else
    result := FormatFloat('#.## bytes', bytes);
end;

Ich rechne die Dateigröße mehrerer Dateien zusammen und erhalte "143866884245" Byte. Das sind ~134GB. Allerdings erhalte ich mit der oben aufgeführten Routine 1,99GB.

Ich weiß nich was da schief geht.

Gruß,
Lukas

[Bernhard Geyer]

LongInt ist nur 4 Byte groß.
Du brauchst für so große Zahlen Int64.

[Der schöne Günther]

Wenn du die '143866884245' manuell einsetzt sieht man eigentlich schon zur Kompilierzeit die entsprechende Warnung

[bernhard_LA]

oder hier http://www.delphipraxis.net/175158-a...ml#post1217345

[ByTheTime]

Tatsächlich aus LongInt Int64 gemacht und es ging Danke Bernhard
@Günther: Ja, das habe ich jetzt gesehen danke für den Tipp. Hätte ich mal ausprobieren sollen...

Aber jetzt geht ja alles, danke für die Hilfe

[Medium]

Am Rande, und auch etwas entgegen meines Sprachempfindens:
Byte*10^(3m) = [X]Byte
Byte*2^(10m) = [xbi]Byte
[m := "Magnitudentripel" (SI-Präfix-Schritt)]

also:
byte*1000 = kiloByte (kB)
byte*1024 = kibiByte (kiB)
byte*1000*1000 = MegaByte (MB)
byte*1024*1024 = MebiByte (MiB)
usw.

So ist es quasi-genormt. Ich finde den Wortklang der x-bis grauselig, und ganz durchgesetzt hat sich das bis Dato auch nicht, aber technisch korrekter wäre es.
Quasi, weil es imho von nahezu allen Standardisierungsorganisationen so anerkannt wird, aber eine formelle Norm gibt es glaube ich nicht.

[jaenicke]

Also ich mache das einfach so...

Delphi-Quellcode:

function FormatDiskSpaceSize(const ASize: Int64): string;
const
  cBinaryPrefixes: array[0..8] of String = ('', 'Ki', 'Mi', 'Gi', 'Ti', 'Pi', 'Ei', 'Zi', 'Yi');
var
  LogValue: Integer;
begin
  LogValue := Floor(Math.LogN(1024, ASize));
  Result := FloatToStrF(ASize / Math.Power(1024, LogValue), ffFixed, 12, 2) + ' ' + cBinaryPrefixes[LogValue] + 'B';
end;

// EDIT:

Zitat von Medium:

Quasi, weil es imho von nahezu allen Standardisierungsorganisationen so anerkannt wird, aber eine formelle Norm gibt es glaube ich nicht.

Doch gibt es:
IEC 80000-13:2008

[Furtbichler]

Nehmt doch einfach die Kilo, Mega... Schreibweise. Die kennt jeder, es gibt keinen Lingualkrebs und hübscher ist es auch (weil die Zahlen auch größer sind). Oder kommt dann etwas anderes heraus, als z.B. beim Explorer?

[p80286]

Meiner Meinung nach hat ein Kilobyte immer noch 1024 Bytes aber sei's drum Wikipedia erklärt's ohne Meinungsmache.

Gruß
K-H

[jaenicke]

Zitat von p80286:

Meiner Meinung nach hat ein Kilobyte immer noch 1024 Bytes

Ich unterscheide, wenn ich etwas schreibe, ob ich z.B. schreibe KB oder KiB. Bei Festplatten schreibe ich, dass sie 1 TB groß ist, aber wenn es um die Daten geht, passen etwa 0,9 TiB drauf.