Dateigröße formatieren?

[igel457]

@lucky

Meine Funktion einfach so aufraufen:
label1.caption := filesizetostr(size); Size ist ein integer. Edit2.Text ein String.
Mach es doch einfach so:
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;