[r59]: / trunk / library / FB_FileControl / Close / svnobj  Maximize  Restore  History

Download this file

7 lines (6 with data), 1.2 kB 

1
2
3
4
5
6
(*
    Closes the current file
*)
IF FileHandle <> SysFile.SysTypes.RTS_INVALID_HANDLE THEN
    Close := SysFile.SysFileClose(hFile := FileHandle);
END_IF