ab.com コミュニティ

[quote="hira"][code]Function Func(Num As QWord) As String
Func=Chr$((Num+96) As Byte)
End Function

Dim a As String
a=Func(1)[/code]
このコードで、string.sbpのAllocStringBuffer内でアクセス違反となってしまいます。
しかし、Funcの引数をDWordにした場合は期待通りの結果で正常終了します。
また、引数がQWordのままでも、Chr$関数の引数をキャストしない場合は(警告は出ますが)正しく動作しています。
ActiveBasic 5.00.00(CP3)で確認。調査をお願いします。[/quote]

ご報告ありがとうございます。
本来であればアクセス違反にならない処理において、hiraさんの仰る現象が確認できました。
次回のバージョンアップで修正しますので、今しばらくお待ちください。

すみません、#strictがあった場合の話です。＞警告
ということで現状はキャストを外して回避しています。

たかせです。

ちなみにキャストをはずしても警告は出ませんでしたが？

たかせです。

上記のソースで確認したらアクセス違反となってしまいます。

ちなみにキャストをかけなければ正常に終了しました

　　　Func=Chr$((Num+96) As Byte)
　　　　　　　　　　　　↓
　　　Func=Chr$((Num+96))

原因はよくわかりせんがとりあえずキャストをはずしてみてはいかがでしょうか？

Function Func(Num As QWord) As String
	Func=Chr$((Num+96) As Byte)
End Function

Dim a As String
a=Func(1)

[code]Function Func(Num As QWord) As String
Func=Chr$((Num+96) As Byte)
End Function

Dim a As String
a=Func(1)[/code]
このコードで、string.sbpのAllocStringBuffer内でアクセス違反となってしまいます。
しかし、Funcの引数をDWordにした場合は期待通りの結果で正常終了します。
また、引数がQWordのままでも、Chr$関数の引数をキャストしない場合は(警告は出ますが)正しく動作しています。
ActiveBasic 5.00.00(CP3)で確認。調査をお願いします。