Speichergrößen heutzutage korrekt interpretieren/betiteln

[DieDolly]

Ich gehe mal stark davon aus, dass 99% aller Delphi-schreiber die Funktion unten benutzen, um Datengrößen visuell dazustellen.

Zitat:

Khabarakh hat auf Basis seines Codes eine Alternative gepostet, die ohne die Unit Math auskommen sollte:
zusammenfalten · markieren Delphi-Quellcode:

Delphi-Quellcode:

function FileSizeToStr(const ASize: Int64 {für Delphiversionen < 2005 durch Real/Double/Extended ersetzen}; const AUseShortNames: Boolean = true): string;
const
  ShortUnits: Array[0..8] of string = ('Byte', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
  LongUnits: Array[0..8] of string = ('B', 'Kilob', 'Megab', 'Gigab', 'Terab', 'Petab', 'Exab', 'Zettab', 'Yottab');
  Epsilon = 1 / 1024; // Wegen der Fließkommaungenauigkeit sicher nie falsch, verhindert außerdem Anzeigen wie "1024 KB"
var
  Index: Integer;
begin
  Index := Trunc(ln(ASize) / ln(2) / 10 + Epsilon);
  if AUseShortNames then
    Result := Format('%.2f %s', [ASize / (Int64(1) shl (Index * 10)), ShortUnits[Index]])
  else
    Result := Format('%.2f %s%s', [ASize / (Int64(1) shl (Index * 10)), LongUnits[Index], 'yte'])
end;

Wie sähe das denn in der Kibi-Schreibweise aus? Muss nur Epsilon auf 1000 geändert werden?

[KodeZwerg]

Zitat von DieDolly:

Ich gehe mal stark davon aus, dass 99% aller Delphi-schreiber die Funktion unten benutzen, um Datengrößen visuell dazustellen.

Da frag ich mich wie Du Yotta berechnen willst, Int64 reicht da nicht. Und nein, ich machs immer selbst. Ich bin das 1 fehlende Prozent.

Zitat von DieDolly:

Wie sähe das denn in der Kibi-Schreibweise aus? Muss nur Epsilon auf 1000 geändert werden?

[DieDolly]

Endlich mal ein Erfolgserlebnis in meinem Leben

Mir fällt aber noch was auf.
Google gibt bei direkter Eingabe in das Suchfeld 498000 Byte in KiloByte = 498 aus.
In KibiByte sind 498000 Bytes scheinbar 486,328125 KibiByte. Ist das so richtig?
Ich dachte immer Byte * 1024 = KiloByte.

[KodeZwerg]

Zitat von DieDolly:

Endlich mal ein Erfolgserlebnis in meinem Leben

Mir fällt aber noch was auf.
Google gibt bei direkter Eingabe in das Suchfeld 498000 Byte in KiloByte = 498 aus.
In KibiByte sind 498000 Bytes scheinbar 486,328125 KibiByte. Ist das so richtig?

Schon das zweit Glückserlebnis heute, alles richtig gemacht!

edit

Zitat von DieDolly:

Ich dachte immer Byte * 1024 = KiloByte.

Nee, das sind KibiByte bzw KiB.

edit #2
Mist ich glaub ich habe oben nen Fehler:
Byte / 1000 = KiloByte bzw KB
Byte / 1024 = KibiByte bzw KiB <<<< Das ist normalerweiser unter Windowsen das zu nehmende Mittel.

[DieDolly]

Damit ich alles richtig verstanden habe eine Zusatzfrage.
Windows zeigt beispielsweise eine Datei mit 1.839 KB und 1,79 MB an (1882784 Bytes).
Wenn ich das jetzt richtig verstanden habe, dann wäre hier Kibi und Mebi korrekt?

[KodeZwerg]

Byte / 1000 = Kilobyte
Byte / 1024 = KibiByte

1882784 / 1000 = 1882,784 KB
1882784 / 1024 = 1838,65625 KiB

1882,784 / 1000 = 1,882784 MB
1838,65625 / 1024 = 1,795562744140625 MiB

Wie Du nachkommastellen rundest überlasse ich Deiner Phantasie.

[DieDolly]

Dann hatte ich mit meiner Vermutung recht.
Danke für die Erklärung.

Interessant wäre nur zu wissen wie Windows rundet. Bei 1882784 Bytes in "MB" zeigt der Explorer 1,79 MB an. Sieht fast so aus, als ob die Nachkommastellen einfach abgeschnitten werden.

[Frickler]

Zitat von KodeZwerg:

Zitat von DieDolly:

Ich gehe mal stark davon aus, dass 99% aller Delphi-schreiber die Funktion unten benutzen, um Datengrößen visuell dazustellen.

Da frag ich mich wie Du Yotta berechnen willst, Int64 reicht da nicht. Und nein, ich machs immer selbst. Ich bin das 1 fehlende

Man kommt aber im realen Leben mit 64 Bit aus. Die maximale Dateigröße damit wäre 16 EiB (erreichbar z.B. mit ZFS). Die Großrechner von IBM haben zwar ein 128-Bit Dateisystem, aber die maximale Dateigröße ist trotzdem "nur" bei 1 TiB.