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:
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:

Edit1.Text := (InttoStr(FileSizeToStr(Edit2.Text))); Der Compiler schluckt das ganze nicht.