sub Write_Integer(ByVal fileHandle As HANDLE, ByVal value As Long)
Записывает 4-х байтовое значение в файл
fileHandle - хендл файла
value - значение типа Long
Windows , Linux
#Include "window9.bi"
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
Write_Integer(handle,565546)
Close_file(handle)
EndIf
handle=Read_file("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
? Read_Integer(handle)
Close_file(handle)
EndIf
Sleep
565546
Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source