Hi Daniel,
But I'm not an expert, and as the code below is not specific to the Calc API, you probably should ask on the [EMAIL PROTECTED] or [EMAIL PROTECTED] mailing list.
i found out what is going wrong, just run the new example ...
i think this is a bug ...
can you confirm ?
Oliver
REM ***** BASIC *****
OPTION EXPLICIT
Sub Main
Dim s as String
Dim mTmp() as String
' return's always a string as expected ...
s = Test(True)
MsgBox s
' return's an array of byte's if Test(True) was called before !!!
' this is different from oo 1.1.5 / 2.4.1
mTmp() = Test(False)
MsgBox mTmp(0) & " " & mTmp(1)
End Sub
Function Test(ByVal bFlag as Boolean) as Variant
Dim mRanges(100) as String
If (bFlag = True) Then
Test = "return a String"
Else
mRanges(0) = "return an"
mRanges(1) = "Array"
Test = mRanges()
EndIf
End Function
--
GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45
signature.asc
Description: OpenPGP digital signature
