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

zusammenfalten · markieren

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

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

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

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

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

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.