AEval Function (Array, ICodeblock, Usual) | |
Execute a code block for each element in an array.
Namespace:
XSharp.RT
Assembly:
XSharp.RT (in XSharp.RT.dll) Version: 2.19
Syntax FUNCTION AEval(
aArray AS ARRAY,
cbBlock AS ICodeblock,
nStart AS USUAL
) AS ARRAY
public static Array AEval(
Array aArray,
ICodeblock cbBlock,
Usual nStart
)
Request Example
View SourceParameters
- aArray
- Type: Array
The array to traverse. - cbBlock
- Type: ICodeblock
The code block to execute. - nStart
- Type: Usual
The starting element.
A negative value starts from the end.
If nCount is positive, the default value is 1; if nCount is negative, the default value is the length of the array.
Return Value
Type:
Array
A reference to
aArray.
The return value of the code block or is ignored — to assign the return value to each element in the array, use the AEvalA() function.
Remarks
AEval() passes the element value and the element index as arguments.
AEval() makes no assumptions about the contents of the array elements it is passing.
It is assumed that the supplied code block knows what type of data will be in each element.
AEval() is similar to DBEval() which executes code for each record of a database file.
Like DBEval(), AEval() can be used as a primitive for the construction of iteration commands for both simple and complex array structures.
Tip |
---|
In Visual Objects 2 different functions were introduced: AEval() and AEvalOld(). The difference between these functions was that AEval() was only calling the codeblock with one parameter (the element in the array), where AEvalOld() was also passing in a second parameter (the array index). Inside X# this difference no longer exists. So AEval() and AEvalOld() are doing the same thing in X#.
|
Examples
This example displays the contents of a one-dimensional array:
1LOCAL aArray[6]
2AFill(aArray, "Hi All!")
3AEval(aArray, {|Element| QOut(Element)})
This example uses AEval() to display an array of file names and file sizes returned from the Directory() function:
1LOCAL aFiles := Directory("*.dbf")
2LOCAL nTotal := 0
3AEval(aFiles, {|aDBFFile | QOut(PadR(aDBFFile[F_NAME], 10), ;
4 aDBFFile[F_SIZE], nTotal += aDBFFile[F_SIZE]})
5? "Total bytes:", nTotal
See Also