NoIVarGet

(Available in 01 TS COM - TS_COM_DelegateIDispatchAuto)

Source

METHOD NoIVarGet( symIVar ) CLASS TS_DelegateIDispatchAuto
LOCAL dwPCount AS DWORD
LOCAL uRetVal AS USUAL
LOCAL aArgs AS ARRAY
LOCAL X AS DWORD
   TSTrace Enter
   IF SELF:_DelegateIDispatch<>NULL_OBJECT .AND. SELF:_DelegateIDispatch:FInit
      dwPCount:=PCOUNT( )
      IF dwPCount>1U
         aArgs:=ArrayCreate( dwPCount-1U )
         FOR X:=2U UPTO dwPCount
            aArgs[ X-1U ]:=USUAL( _CAST, _GETMPARAM( X ) )
         NEXT
         uRetVal:=SELF:_DelegateIDispatch:_IVarGet(  ; ...
        ... NULL_SYMBOL, symIVar, aArgs, dwPCount-1U )
      ELSE
         uRetVal:=SELF:_DelegateIDispatch:_IVarGet(  ; ...
        ... NULL_SYMBOL, symIVar, NULL_ARRAY, 0U )
      END
      IF TS_IsInstanceOf( uRetVal, #TS_DelegateIDispatch )
         uRetVal:=TS_DelegateIDispatchAuto{ NIL, uRetVal, NIL }
      END
   ELSE
      TSTrace Warning "!(SELF:_DelegateIDispatch<>NULL_OBJECT .AND. SELF:_DelegateIDispatch" ; ...
     ... +":FInit)"
      uRetVal:=NIL
   END
   TStrace Leave
RETURN uRetVal