Dateigröße formatieren?

[dahead]

Zitat:

Zitat von Khabarakh

Viel zu lang :mrgreen: .

Delphi-Quellcode:

function FileSizeToStr(const ASize: Int64): string;
const
  Units: Array[0..8] of string = ('Byte', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
var
  Index: Integer;
begin
  Assert(ASize >= 0);
  Index := Trunc(ln(ASize) / ln(2) / 10); // <-- hier
  Result := Format('%.2f %s', [ASize / (1 shl (Index * 10)), Units[Index]]);
end;

*scnr*

Bei meinem Delphi 7 kommt leider in der Idx Spalte ein Fehler inkompatible Typen. Ln erwartet einen Wert vom Typ Real.

[dahead]

Funktioniert der obige Code bei euch etwa?

[ichbins]

Bei mir läuft alles Super.

[OT]Der Wikipedia-Artikel (oben verlinkt) schreibt für Kilobytes die Einheit KiB vor :mrgreen:[/OT]

übrigens ist es sinnlos, so große Einheiten anzugeben, da ein int64 nur bis zu 2^64 geht, d.h. Exabytes (bis 2^69,999) würden vollkommen ausreichen.

Wenn dein Compiler einen Real erwartet, gib ihm doch einen. Mach aus 2 -> 2.0 und teile asize durch 1.0

[Khabarakh]

Die System-Routinen scheinen wohl bis D2005 ein Problem mit Int64 zu haben, nicht einmal ein explicit Cast funktioniert. Über eine Real-Variable (bzw. gleich als Parameter) oder eine nicht-ASM Funktion funktioniert die Routine aber auch mit meinem Delphi 6:

Delphi-Quellcode:

Index := Trunc(Math.LogN(2, ASize) / 10);

Zitat:

Zitat von ichbins

übrigens ist es sinnlos, so große Einheiten anzugeben, da ein int64 nur bis zu 2^64 geht, d.h. Exabytes (bis 2^69,999) würden vollkommen ausreichen.

Der Kommentar im Code ist nicht zufällig genau so eingerückt, wie er oben steht.

Zitat:

Zitat von ichbins

[OT]Der Wikipedia-Artikel (oben verlinkt) schreibt für Kilobytes die Einheit KiB vor :mrgreen:[/OT]

Und wer hält sich daran :wink: ? Bevor ich den User komplett verwirre, gebe ich lieber eine streng genommen falsche Einheit aus.

[ichbins]

Da steht aber nur unwahrscheinlich ;)

Eigentlich gehört ein unmöglich hin. Unwahrscheinlich wird es nämlich schon etwas früher.

[dahead]

Zitat:

Zitat von Khabarakh

Die System-Routinen scheinen wohl bis D2005 ein Problem mit Int64 zu haben, nicht einmal ein explicit Cast funktioniert. Über eine Real-Variable (bzw. gleich als Parameter) oder eine nicht-ASM Funktion funktioniert die Routine aber auch mit meinem Delphi 6:

Delphi-Quellcode:

Index := Trunc(Math.LogN(2, ASize) / 10);

ja, so klappt es bei mir auch. Danke!