Dateigröße auslesen

[ibp]

..du sollst die txt-datei ja nicht zum bearbeiten öffnen, sondern du willst
die info, wie groß die datei ist, das kannst du dann doch so machen...

Delphi-Quellcode:

function TForm1.getfilesize(fname:tFileName):Longint;
var
   f: file of Byte;
begin
  result:=0;
  {$IOChecks OFF}
    AssignFile(f, fname);
    Reset(f);
    result := FileSize(f);
    CloseFile(f);
  {$IOChecks ON}
end;