Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Dateigröße formatieren?

    Delphi
    by Khabarakh, 6. Dez 2005
  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:Index := Trunc(Math.LogN(2, ASize) / 10);Der Kommentar im Code ist nicht zufällig genau so eingerückt, wie er oben steht.
  Und wer hält sich...
• Forum: Object-Pascal / Delphi-Language

  Re: Dateigröße formatieren?

    Delphi
    by Khabarakh, 25. Nov 2005
  Viel zu lang :mrgreen: .
  function FileSizeToStr(const ASize: Int64): string;
  const
  Units: Array of string = ('Byte', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
  // Ab hier wird es unwahrscheinlich ^^
  var
  Index: Integer;
  begin
  Assert(ASize >= 0);
  Index := Trunc(ln(ASize) / ln(2) / 10);