IVarGetCreateInstanceArgs

 (Available in 01 TS COM - TS_COM_DelegateIDispatch)

Purpose

Get a property value as object

Syntax

oObject:=oDelegateIDispatch:IVarGetCreateInstanceArgs( #MyObject, #Item ; ...
..., { 1 } )

Arguments

symClass
SYMBOL
symIVar
SYMBOL
aArgs
ARRAY

Description

Get a property value as object, The method 'IVarGetArgs' could be used to return the same value, except the this method will instanciate a object of the specified class ( 'symClass' ). For the same property the 'IVarGetArgs' method will return an instance of 'TS_DelegateIDispatch'

Returns

OBJECT, Property value

Example

ACCESS CAItem CLASS SomeClass
RETURN SELF:IVarGetCreateInstanceArgs( #ItemObject, #Item, {  ; ...
...1 } )

Source

METHOD IVarGetCreateInstanceArgs( symClass AS SYMBOL, symIVar AS SYMBOL, aArgs AS  ; ...
...ARRAY ) CLASS TS_DelegateIDispatch
LOCAL uRetVal AS USUAL
   TSTrace Enter symIVar
   IF SELF:FInit
      DO CASE
      CASE Empty( symClass )
         uRetVal:=SELF:_IVarGet( NULL_SYMBOL, symIVar, aArgs,  ; ...
        ... SELF:_ArgsLength( aArgs ) )
      CASE IsClass( symClass )
         uRetVal:=SELF:_IVarGet( symClass, symIVar, aArgs, SELF:_ArgsLength ; ...
        ... ( aArgs ) )
      OTHERWISE
         TSTrace Warning "!IsClass(symClass)"
         uRetVal:=NIL
      END
   ELSE
      TSTrace Warning "!SELF:FInit"
      uRetVal:=NIL
   END
   TSTrace Leave symIVar
RETURN uRetVal