BytePtr型変数の初期化で「全角のみ」正しく格納されません。
突然と言いますか、気が付いたらこの様な現象が起こっていました。
と言うのも過去の物を見ても同じ使い方をしているのですが、何の問題も無く正しく格納されています。
何が原因なのでしょうか?
宜しくお願いします。
MainWnd内のモジュールやプロシージャレベルは、問題なく格納されますが
インクルードファイルのモジュールやプロシージャレベルでは、「全角のみ」
正しく格納されません。
又、インクルードファイル内での変数の初期化時に "ク" が有るとコンパイラが固まります。
Dim item1[1]= ["Active", "ベーシック"] As *Byte 'NG
以前、「バグ報告」で、文字によって初期化出来ない・・・。 様な事が在りましたが、
それとは、また違うのでしょうか?
題名: BytePtr 型の初期化でコンパイラが固まる
http://www.activebasic.com/forum/viewto ... 37184a2e03
[Active Basic Ver 4.24.00 使用] (因みに Ver 5.00 cp3 も同様でした)
ex code [ここをクリックすると内容が表示されます]
'-----------------------------------------------------------------------------
' イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd
' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。
#include "Test.sbp"
Sub MainWnd_CommandButton1_Click()
Dim item1[1] = ["Active", "ベーシック"] As *Byte 'OK
Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte 'OK
Test()
debug
End Sub
'-----------------------------------------------------------------------------
'Test.sbp
Function Test() As Long
Dim item1[1] = ["Active", "ベーシッ"] As *Byte 'NG
Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte 'NG
debug
End Function
'-----------------------------------------------------------------------------
' イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd
' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。
#include "Test.sbp"
Sub MainWnd_CommandButton1_Click()
Dim item1[1] = ["Active", "ベーシック"] As *Byte 'OK
Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte 'OK
Test()
debug
End Sub
'-----------------------------------------------------------------------------
'Test.sbp
Function Test() As Long
Dim item1[1] = ["Active", "ベーシッ"] As *Byte 'NG
Dim item2[1,1] = [["0-1", "0-2"],["1-1", "1-2"]] As *Byte 'NG
debug
End Function
'-----------------------------------------------------------------------------