sub Write_Word(ByVal fileHandle As HANDLE, ByVal value As Short)
Записывает 2-х байтовое значение в файл
fileHandle - хендл файла
value - значение типа Short
Windows , Linux
#Include "window9.bi"
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
Write_Word(handle,565)
Close_File(handle)
EndIf
handle=Read_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
? Read_Word(handle)
Close_File(handle)
EndIf
Sleep
565
Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites