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?