Retrieving the file size of a not initialised file blocks access to further files (IOResult returns value 103) Compiled with GO32V2 Snapshot [2000/12/21], executed within a Win95-DOS-Box

this source shows that problem

{$I-}
VAR f1,f2:file;
    fs:longint;
BEGIN
  fs:=filesize(f1);
  assign(f2,'c:\config.sys'); { every other file can be taken, too}
  reset(f2,1);
  writeln(IOresult);
  close(f2);
END.

Michael

Retrieving the file size of a not initialised file blocks access to further files (IOResult returns value 103) Compiled with GO32V2 Snapshot [2000/12/21], executed within a Win95-DOS-Box

That is normal as you should handle the error first (read: retrieve IOResult). This is normal tp behaviour.

Add here "if ioresult0 then;" to clear the error flag

I seeeeh :-)

Michael