[Korrektur] Byte-Werte zwischen den Einheiten umrechnen

[ChEeTaH]

Mein Vorschlag für Byte-Werte zwischen den Einheiten umrechnen:

Delphi-Quellcode:

function TfMain.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
  if ASize > 0 then   // hinzugefügt
  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 else if AUseShortNames then    // hinzugefügt
    Result := '0 ' + ShortUnits[0]
  else
    Result := '0 ' + LongUnits[0] + 'yte';   // hinzugefügt ende
end;

MfG ChEeTaH

[himitsu]

selbes Thema ... wurde vor Kurzem schonmal durchgekaut:
Neuen Beitrag zur Code-Library hinzufügen -> Anmerkung zu einem Code-Library-Eintrag
(auch wenn es der Name nicht verrät ... PS: hätte man über FileSizeToStr entdecken können)

die Berechnung dort ist auch nett:
Object-Pascal / Delphi-Language -> Dateigröße formatieren?

noch was
Sonstige Fragen zu Delphi -> Dateigröße aufteilen in kB, MB,...

und was Neues (wurde im anderem Thread mit erwähnt)
Object-Pascal / Delphi-Language -> Grössenangabe automatische Umwandlung

[ChEeTaH]

oh sorry hab ich übersehen. Dafür hätte ich kein eigenes Thema eröffnen müssen, da es ja schon welche gibt

In keinem der Threads wird aber der Fall abgedeckt, bei dem die Inputgröße = 0 ist
Insofern also ein neuer Bug

MfG ChEeTaH

[himitsu]

Zitat von ChEeTaH:

In keinem der Threads wird aber der Fall abgedeckt, bei dem die Inputgröße = 0 ist
Insofern also ein neuer Bug

bei meinen Codes sollte es da keine Probleme geben


und keine Sorge ... übersehn tut jeder schnell mal was und so ganz offensichtlich war der Thread nun auch nicht

[ChEeTaH]

Zitat von himitsu:

Zitat von ChEeTaH:

In keinem der Threads wird aber der Fall abgedeckt, bei dem die Inputgröße = 0 ist
Insofern also ein neuer Bug

bei meinen Codes sollte es da keine Probleme geben

Doch, in der Zeile beschwert sich der Compiler:
 Index := Trunc(ln(ASize) / ln(2) / 10 + Epsilon);

Zitat:

Gleitkommadivision durch Null

MfG ChEeTaH

[himitsu]

neee, in meinem eigenem Code hab ich doch diese Logarithmus-Funktionen nicht genutzt
und darum gibt es dort dieses Problem nicht

[ChEeTaH]

Zitat von himitsu:

neee, in meinem eigenem Code hab ich doch diese Logarithmus-Funktionen nicht genutzt
und darum gibt es dort dieses Problem nicht

hoppla, hab vergessen, dass der zweite Code-Snippet nicht von dir ist
Er steht aber trotzdem in deinem Thread