IVarPutArgs

(Available in 01 TS COM - TS_COM_DelegateIDispatch)

Purpose

Set a property value

Syntax

oObject:=oDelegateIDispatch:IVarPutArgs( #Item, { 1 } )

Arguments

symIVar	SYMBOL
aArgs	ARRAY

Description

Set a property value will return any properties value and allowes to pass parameters to the property set method by passing an array with the property values. When the property set method does not need any parameters the 'IVarPut()' method should be used.

Returns

USUAL, Property value

Example

ASSIGN CAItem( uParm1, uParm2 ) CLASS SomeClass
RETURN SELF:IVarPutArgs( #Item, { uParm1, uParm2 } )

Source

METHOD IVarPutArgs( symIVar AS SYMBOL, aArgs AS ARRAY ) AS USUAL PASCAL CLASS TS_DelegateIDispatch
LOCAL uRetVal AS USUAL
   TSTrace Enter symIVar
   IF SELF:FInit
      uRetVal:=SELF:_IVarPut( NULL_SYMBOL, symIVar, aArgs, SELF:_ArgsLength ; ...
     ... ( aArgs ) )
   ELSE
      TSTrace Warning "!SELF:FInit"
      uRetVal:=NIL
   END
   TSTrace Leave symIVar
RETURN uRetVal