[r57]: / trunk / library / FB_FileControl / Write / svnobj  Maximize  Restore  History

Download this file

5 lines (4 with data), 2.4 kB 

1
2
3
4
IF FileHandle <> SysFile.SysTypes.RTS_INVALID_HANDLE THEN
    BytesWritten := SysFile.SysFileWrite(hFile := FileHandle,
                                         pbyBuffer := pString,
                                         ulSize := Size,