EvalArray
(Available in 00 TS Base(Base) - TS_Base_0_Traverse)
Source
METHOD EvalArray( aItem AS ARRAY, aReUse AS ARRAY, aSelfReference AS ARRAY ) AS LOGIC ; ...
...PASCAL CLASS TS_Traverse
LOCAL oTraverse AS TS_Traverse
LOCAL lEval AS LOGIC
LOCAL X AS DWORD
lEval:=TRUE
SELF:Arrays+=1U
IF aItem==NULL_ARRAY
SELF:NullArrays+=1U
END
IF LOGIC( _CAST, aReUse )
SELF:ArrayReUses+=1U
END
IF SELF:_Profiling
DO CASE
CASE LOGIC( _CAST, aSelfReference )
IF LOGIC( _CAST, aItem )
IF SELF:_ShowRXIndexes
IF LOGIC( _CAST, ALen( aSelfReference )