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

Download this file

5 lines (4 with data), 1.2 kB 

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