Code: Select all
; 負のオフセットのバグ - Negative offset bug - Positive works - Also error in doku ?
file$ = GetTemporaryDirectory() + "日本の小花であるサキ"
file = CreateFile(#PB_Any , file$)
WriteString(file , "AAAAAAAABBBBBBBBCCCCCCCCDDDDDDDD" , #PB_UTF8)
Debug FileSeek(file , Lof(file) -8 ) ; Give back 24 - OK - But Doku say - "This function returns no value !"
Debug ReadString(file , #PB_UTF8 , 8) ; Read last 8 chars = DDDDDDDD
Debug FileSeek(file , -8 , #PB_Relative) ; Move file pointer 8 chars to left at pos 24 - OK
Debug ReadString(file , #PB_UTF8 , 8) ; Results also DDDDDDDD - But FileSeek say file pointer is moved to pos 24 - FALSE
Debug Loc(file) ; Loc say file pointer is not moved - FALSE
CloseFile(file)
DeleteFile(file$)