コード: 全て選択
Open "data52.txt" For Input As 1
Dim I, Str$
While Eof(1) = 0
I++
Input #1,Str$
Print I
Wend
Close(1)
コード: 全て選択
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
「string.sbp」に「_System_HeapStringAlloc」という関数がありますが、
[ここをクリックすると内容が表示されます]
その「SetDWord(_System_HeapStringAlloc-4,length)」でエラーが発生しているみたいです。コード: 全て選択
Function _System_HeapStringAlloc(length As DWord) As *Byte
_System_HeapStringAlloc=(HeapAlloc(_System_hProcessHeap,HEAP_ZERO_MEMORY,4+length+1)+4) As *Byte
SetDWord(_System_HeapStringAlloc-4,length)
EnterCriticalSection(_System_CriticalSection)
_System_AllocatedStringInfo.pAddress=(HeapReAlloc(_System_hProcessHeap,0,_System_AllocatedStringInfo.pAddress,(_System_AllocatedStringInfo.num+1)*4)) As *DWord
SetDWord(_System_AllocatedStringInfo.pAddress+_System_AllocatedStringInfo.num*SizeOf(DWord),_System_HeapStringAlloc)
_System_AllocatedStringInfo.num=_System_AllocatedStringInfo.num+1
LeaveCriticalSection(_System_CriticalSection)
End Function