- 【QBASIC互換!?】FreeBasic【GPL】
898 ：デフォルトの名無しさん[]：2016/10/31(月) 21:48:57.96 ID:+6lHFHa+ - Public Function StringPeek(ActionType As Long) As long
StringPeek = 0
Const LenZstring = 20
Dim As ZString * LenZstring AAzstring, BBzstring, CCzstring
Dim As String AAstring, BBstring
Dim As Long IAA, IBB, ICC
Dim As ZString Ptr AAzstringPTR
AAstring = ""
For IAA = 1 To LenZstring
AAstring = AAstring + Str$(IAA Mod 10)
Next IAA
AAZString = AAstring
AAzstringPTR = @AAZString
MessageBox(TakaHWND,"Hello ("+AAZString+")"+Str$(Len(AAzstring))+" , "+Str$(len(CCzstring)),"Messagebox caption",MB_ICONINFORMATION)
BBstring = ""
For IAA = 0 To LenZstring -1
IBB = Peek(UByte, AAzstringPTR + IAA)
BBstring = BBstring + Str$(IBB - &h30)
Next IAA
BBZString = BBstring
If (AAZString <> BBZString) Then
MessageBox(TakaHWND,"Hello ("+BBZString+") ("+AAzstring+")","Messagebox caption",MB_ICONINFORMATION)
Else
MessageBox(TakaHWND,"Hello ("+BBZString+")"+Str$(Len(AAzstring))+" , "+Str$(len(CCzstring)),"Messagebox caption",MB_ICONINFORMATION)
EndIf
End Function
とまー、何とか領域が確保できた。
|