(var F : TFileClass) : Integer;
FileSize gibt die Anzahl der Bytes in der geöffneten Datei F zurück.
try AssignFile(f, 'c:\FileName.txt'); try Reset(f); size := FileSize(f); S := 'File size in bytes: ' + IntToStr(size); finally f.Free; end; except ShowMessage('Exception'); end;
var f : TFileClass; begin //... try AssignFile(f, 'c:\FileName.txt'); try Reset(f); size := FileSize(f); S := 'File size in bytes: ' + IntToStr(size); finally f.Free; end; except ShowMessage('Exception'); end; //... end;