ab.com コミュニティ

なるほど…
なんだか、難しそうですね…

とりあえず、hiraさんに教えてもらった方法で実装されてもらいます。
ありがとうございました。

#N88BASIC

Dim a[10] As String
Dim i As Long

Sub test(b As *String)
Dim Str As String
    For i=0 to 10
		Str=Str$(i*10)
		_System_HeapStringFree(b)
		b=_System_HeapStringAlloc(Len(Str))
		lstrcpy(b,Str)
    Next
End Sub

test(a)
For i=0 to 10
    Print a
Next

String型は扱いが難しく、ちょっと面倒なことになるのですが、これで動きます。
[code]#N88BASIC

Dim a[10] As String
Dim i As Long

Sub test(b As *String)
Dim Str As String
For i=0 to 10
Str=Str$(i*10)
_System_HeapStringFree(b[i])
b[i]=_System_HeapStringAlloc(Len(Str))
lstrcpy(b[i],Str)
Next
End Sub

test(a)
For i=0 to 10
Print a[i]
Next[/code]
ちなみに「_System_HeapStringAlloc」「_System_HeapStringFree」は、ActiveBasicがString型を作るときに内部で使っている関数です。

すみません、質問させてもらいます。
プロシージャに配列データを渡す場合、ヘルプには

'---ここから
#N88BASIC

Dim a[10] As Long
Dim i As Long

Sub test(b As *Long)
For i=0 to 10
b[i]=i*10
Next
End Sub

test(a)
For i=0 to 10
Print a[i]
Next
'---ここまで

となっていますが、これを文字列でやろうとすると、

'---ここから
#N88BASIC

Dim a[10] As String
Dim i As Long

Sub test(b As *String)
For i=0 to 10
b[i]=Str$(i*10)
Next
End Sub

test(a)
For i=0 to 10
Print a[i]
Next

'---ここまで
「"b[i]" 型が違います」というエラーが出てうまくコンパイルできないんです。
文字列の配列渡しには、何か特別なことをしないといけないんでしょうか？


AB Ver4.04
OS Win2kSP4