[fpc-pascal]SysUtils.FileExists bug under Go32v2

Anton Tichawa anton.tichawa at chello.at
Wed Feb 12 22:41:19 CET 2003

Hello, Ivan!

> Function FileExists (Const filename :String) :Boolean;
> begin
>    //FileGetAttrib will return -1 if the file was not found
>    //but I don't know if it will return -1 if the file exists but it's open
>    result := boolean( FileGetAttr( filename ) XOR -1 );
> end;

I'll have a look at that ..

Anton Tichawa.

More information about the fpc-pascal mailing list