REG_DWORD Dezimalzahl in "Datei größe" Formatieren

**Metal_Snake2**

hi,

ich habe z.B. einen schlüssel x mit dem DateiTyp "Reg_DWord".
X soll nun z.B. den Dezimalwert 6676940 haben.

Wie komme ich auf die rechnung das dieser wert 2424,45 MB ist?

Ich meine mit funktionen wie :

zusammenfalten · markieren

Delphi-Quellcode:

			function TUtils.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;

komme ich nicht weiter, kann mir einer helfen???
Meine vermuting ist das ich die Dezimalzahl irgendwie mit "Format" zurecht formatieren soll...jedoch habe ich bis jetzt nicht
richtig die Formatierung verstanden.

Danke fürs lesen.

REG_DWORD Dezimalzahl in "Datei größe" Formatieren

REG_DWORD Dezimalzahl in "Datei größe" Formatieren

Forumregeln