System.Reset does not work with opened files

[anna]

Code: [Select]

var
  f: file;
begin
  //filemode := fmOpenRead;
  system.assign(f,'C:\testfile.dat');
  system.reset(f,1);// <---- here is exeption, if file is already read by third application

  system.close(f);
end;  But if uncomment filemode := fmOpenRead; all is okey. Why? filemode is used only by sysutils unit, and not by system unit

[ChrisF]

...
filemode is used only by sysutils unit, and not by system unit

What makes you think so ?

http://www.freepascal.org/docs-html/rtl/system/filemode.html

Source position: systemh.inc line 462
const Filemode: Byte = 2;

http://www.freepascal.org/docs-html/rtl/system/reset.html

Description
Reset opens a file F for reading. F can be any file type. If F is a text file, or refers to standard I/O (e.g : '') then it is opened read-only, otherwise it is opened using the mode specified in filemode.

[anna]

What makes you think so ?

fmOpenRead declared not in system. Hm-m...

[Leledumbo]

Actually, it's wrong to assign fmOpenRead to FileMode. It's supposed to be assigned with one of the fm* values declared in the system unit as well. The behavior is then undefined.