Functions that return Arrays
it is possible with a few drenches and quenches already to make a thinbasic function return a result that is an array. The indirect way - passing an array byref to a function - we know all from many functions that put some data for us into a list which is the byref passed array and the function returns additional a count how many of the returned elements in the array are to take serious or is it 0 but dimensioned to a ubound of 1 that we can ignore then.
When i setup a function as
Code:
Function myFunc(byval param1 as whatever,
byref param2 as Anytype [,
... ] ) As lonely Long
you will see and know from experience the "As lonely Long" returned function-result-parameter never came " As [Array of] Long()" in the past.
And thoughts as: "oh my god - if returns an array the stupid user has to ready a bucket to receive all numbers. No no no this can not be and anyway there is the byref-option, blah blah blah, lazy excuses only...
Back to the previous sentence and study the words "... the "As lonely Long" returned function-result-parameter ..." in the sense of Albert Einsteins "NOTHING is faster than the speed of light" - the thing that makes the universe expand in hyper-light-speed is that NO-THING that no one ever saw because it was gone already when the light arrived
Is it really a parameter? Outside of the parenthesis? Yes it is. the opening parenthesis signals the start of function parameters, the closing parenthesis only ends the list of parameters that can be overloaded by the user and even if we can not see what is on the other side of that equal sign where our function result will end up.
"...) As Long" tells us the user is ready to receive what is represented in a Long variable.
Now jump over there in your mind where the user wrote something like
Code:
Dim lResult As Long = myFunc(x,y)
and think what you could give to his hands here that will rescue him if myFunc would not return the expected 4 bytes but something from 0 * 4 to 2^31*4 bytes -
that (last words italics, bold) tells you already what could come: a sequence of data - to interpret as not so lonely long - and altogether it's pretty near to the variadic parameters that can be passed into a function,
specifying "paramName(ANY) as paramType"
now back down left of the equal sign again where the users result-parameter is waiting- let him borrow the "(ANY)" for a moment or two
Code:
'one
Dim lResult(ANY) As Long = myFunc(x,y)
'or two
Redim lResult(ANY) = myFunc(u,v)
and think
Code:
Function myFunc( byval param1 as whatever,
byref param2 as AnyType[,
...] ) As Long() | As Array[Of Long ]
' where
...As Long()
'or
... As ArrayOf(Long)
' or
... As Long Array
' in reality means
... As String
' the returned value will be a sequence of homogenous, same sized elements
'that i will grab after ordering and joining them (thats what the function is for)
'and i will return that bunch of data and dump it to the users bucket.
' The user knows its 0, 1 or more of Long variables to expect as returned parameter
'and should provide space for it.
Now back to the left of equal, we are at Dim, Redim ... initial but (ANY) and lets remember times we used dynamic strings to substitute not available dynamic udt-subelements
we wrote like
Code:
dim myData(StrptrLen(Strptr(s))\sizeOf(Long)) As Long At Strptr(s)
there we knew the name of the string-variable s and s was an existing dynamic string for that we had a variable name.
Now if we have the function name that equals/results a dynamic string as myFunc() above and we use
Code:
Dim|ReDim|Local|Global <varname>(ANY) [As Type] =
' clarify : [As Type] can not be when ReDim is used
clm '(clear mind)
Dim|Redim|Local|Global <varname>(ANY) ... =
focus on the "(ANY) = " and see the user actually orders to "dim" a "variable [As Type]" with unknown count of elements "(ANY)" AT a sequence of bytes that is available through assignment "=" - an expression that follows after evaluation on the right side of the equl sign, thats length divided by SizeOf([As Type]) will determine the count of elements. while Dim <varname>(0) ... makes not much sense, the assignment could be an empty string that would mess it all up. Except if the assignment of an empty string
to varname(ANY) will SetAt(varname, 0)
now user can test his result:
Code:
If GetAt(lResult) then
' lResults ubound and content is valid
End If
Did you follow? Did you get it? Or did i omit and overlooked an important detail as
that expression following after "=" is the result of some function that remains valid until?
Function called again or current function scope terminates?
can it exist as local variable without a name maybe dimensioned through Dim <varname>(ANY) that would dim varname [As Type] and _varname$ As String in one go and actualy assign _varname$ and create varname virtually upon after assignment on the right hand side ?
And - did anyone read or understand it at all? Maybe one of those "new" users, barely logged in with a lot of forum privileges?
No one can see it. Mind it. I am no one too
