Function Read_Word(ByVal fileHandle As HANDLE) As Short
Читает 2 байта из файла
fileHandle - хендл файла
Windows , Linux
#Include "window9.bi"
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
Write_Word(handle,565)
Write_Word(handle,4730)
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: Free iPhone documentation generator