redim byref passed array-variable

[ReneMiner]

i want to know something :D

see the small example:


Uses "console"

Function fTest( ByRef a(), ByVal newDims As Long ) As Long

' this function shall redim some array a and return new ubound

ReDim Preserve a(newDims)

Function = UBound(a)

End Function


Dim foo() As Long ' the real, global array

PrintL Str$( fTest( foo, 123) )

PrintL "now:" & UBound(foo) ' i want it to print 123 too :(


WaitKey


thinBasic itself has a few functions that can do this as Dir_ListArray or Parse - where the passed variable to redim is mandatory a string.
But is it possible from script-side to do similar and redim any array passed by user like that?

Any ideas- hints?

[Petr Schreiber]

It is simple, just specify the type in the generic array parameter:


Uses "console"

Long laurel() ' the global array

Function TBMain()

Long hardy() ' the local array

PrintL fTest( laurel, 128)
PrintL "now:" & UBound(laurel)
PrintL
PrintL fTest( hardy, 256)
PrintL "now:" & UBound(hardy)

WaitKey

End Function

Function fTest( ByRef a() As Any, ByVal newDims As Long ) As Long

ReDim Preserve a(newDims)
Return UBound(a)

End Function



Petr

[ReneMiner]

Thank you :)