UNIT TESTOPENFILEU;
Interface
Function testopenfile (filename: string): boolean;
IMPLEMentation
Uses sysutils;
Function Testopenfile (filename: string): boolean; var FileHandle: Integer; Begin FileHandle: = FileOpen (FileName, FMOpenWrite); FileClose (FileHandle); TestopenFile: = FileHandle> = 0;
End.
