Dateigröße formatieren?

[mlspider]

Hallo,

ich lasse mir die Größe einer Datei wie folgt ermitteln:

Delphi-Quellcode:

function CheckFileSize(aFilename: string): integer;
var
   f: file of Byte;
   size: Longint;
begin
AssignFile(f, aFilename);
Reset(f);
try
   size := FileSize(f);
finally
   CloseFile(f);
end;
Result := size;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text := (InttoStr(CheckFileSize(Edit2.Text)));
end;

Ich möchte jetzt die Größenangabe formatieren (zb:Angabe in MB). Aber wie?

[igel457]

Mach eine Funktion FileSizeToStr:

Delphi-Quellcode:

function FileSizeToStr(size:int64):string;
begin
  if size < 1024 then result := inttostr(size)+'Byte';
  if (size > 1024) and (size < 1024*1024) then result := formatfloat('0.00',size/1024)+'KB';
  if (size > 1024*1024) and (size < 1024*1024*1024) then 
   result := formatfloat('0.00',size/1024/1024)+'MB';
  if (size > 1024*1024*1024) then 
   result := formatfloat('0.00',size/1024/1024/1024)+'GB';
end;

Hoffe das hilft...

[mlspider]

Und wie wäre der Aufruf in einer Procedur?

Habe Deine Funkion eingebaut. Leider gibt mir der Compiler folgende Fehlermeldung aus:

Funktion benötigt Ereignistyp

[xaromz]

Hallo,

da ist ein Fehler:

Delphi-Quellcode:

function FileSizeToStr(size:int64): String; // <- das muss noch dazu

Gruß
xaromz

[Sharky]

Hai mlspider,

da ist ein kleiner Fehler in der Deklaration. Mach aus:

Code:

function FileSizeToStr(size:int64);

einfach

Code:

function FileSizeToStr(size:int64) : String;

[dahead]

ich hab mir für diesen zweck das hier gebastelt (finde ich persönlich etwas übersichtlicher):

edit: gepostete funktion muss überarbeitet werden, daher entfernt.

[Luckie]

Ein KB hat aber 1.024 Byte und nicht 1.000. ;)

[mlspider]

Beide Funktionen sind toll. Leider komme ich mit dem Aufruf innerhalb einer Procedur nicht klar, da Int64 und TCaption inkompatibel sind.

[Luckie]

Du musst den Integer erst in einen String konvertieren mit IntToStr.

[mlspider]

Hallo Luckie,

das mache ich bereits:

Delphi-Quellcode:

Edit1.Text := (InttoStr(FileSizeToStr(Edit2.Text)));

Der Compiler schluckt das ganze nicht.

[xaromz]

Hallo,

da fehlt ein StrToInt:
schreib mal

Delphi-Quellcode:

Edit1.Text := FileSizeToStr(StrToInt(Edit2.Text));

Gruß
xaromz
//Edit: Fehler verbessert.

[BenjaminH]

Delphi-Quellcode:

Edit1.Text := (InttoStr(FileSizeToStr(Edit2.Text)));

So passts:

Delphi-Quellcode:

Edit1.Text := FileSizeToStr(StrtoInt(Edit2.Text));

[igel457]

@lucky :gruebel: :stupid:

Meine Funktion einfach so aufraufen:

Delphi-Quellcode:

label1.caption := filesizetostr(size);

Size ist ein integer. Edit2.Text ein String.
Mach es doch einfach so:

Delphi-Quellcode:

label1.caption := filesizetostr(strtoint(edit2.text));

Noch ein Tipp um die Große abzufragen. Du nimmst da eine recht "altmodische" Methode.

So ist es hoffentlich besser:

Delphi-Quellcode:

function CheckFileSize(aFilename: string): int64;
var
  fs:TFilestream;
begin
  fs := TFileStream.Create(afilename,fmOpenRead   )
  Result := fs.size;
  fs.free;
end;

[Luckie]

Das ist doch schon ein String: FileSizeToStr!

[mlspider]

Ja, jetzt passt es. Danke an alle.

[Khabarakh]

Zitat:

Zitat von igel457

Mach eine Funktion FileSizeToStr:

Delphi-Quellcode:

function FileSizeToStr(size:int64):string;
begin
  if size < 1024 then result := inttostr(size)+'Byte';
  if (size > 1024) and (size &lt; 1024*1024) then result := formatfloat('0.00',size/1024)+'KB';
  if (size &gt; 1024*1024) and (size &lt; 1024*1024*1024) then 
   result := formatfloat('0.00',size/1024/1024)+'MB';
  if (size &gt; 1024*1024*1024) then 
   result := formatfloat('0.00',size/1024/1024/1024)+'GB';
end;

Hoffe das hilft...

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');
                                                                              // Ab hier wird es unwahrscheinlich ^^
var
  Index: Integer;
begin
  Assert(ASize >= 0);
  Index := Trunc(ln(ASize) / ln(2) / 10);
  Result := Format('%.2f %s', [ASize / (1 shl (Index * 10)), Units[Index]]);
end;

*scnr*

[himitsu]

Delphi-Quellcode:

function FileSizeToStr(size:int64):string; 
begin 
  if size < 1024 then result := inttostr(size)+'Byte'; 
  if (size > 1024) and (size > 1024*1024) then result := formatfloat
...

Da ist eh ein Fehler drin ... ihr solltet mal darauf achten, was passiert, wenn size 1024 ist :zwinker:

[Neutral General]

Delphi-Quellcode:

function FileSizeToStr(const ASize: Int64): string;
const
  Units: Array[0..8] 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);
  Result := Format('%.2f %s', [ASize / (1 shl (Index * 10)), Units[Index]]);
end;

OT: Was ist denn EB, ZB und YB ? :mrgreen:
Ich kenne nur bis PetaByte :mrgreen:

[Sharky]

Zitat:

Zitat von Neutral General

... OT: Was ist denn EB, ZB und YB ?...

Ein Klick zu WiKi verrät es ;-)

[mlspider]

Immer wieder nützlich!:mrgreen:

[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!