INIT
(Available in 01 TS COM - TS_COM_VariantArg)
Source
METHOD INIT( uoOwner, uValue, udwType ) CLASS TS_VariantArg
LOCAL cAccessTypeList AS STRING
LOCAL dwType AS DWORD
LOCAL lInit AS LOGIC
TSTrace Enter CREATE
IF LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_ININIT ; ...
... ) )
SELF:_ObjectStat1+=TS_OBJSTAT1_COUNTVALUE
cAccessTypeList:=TS_AccessTypeList( uoOwner, udwType )
DO CASE
CASE cAccessTypeList=="UU" .OR. cAccessTypeList=="OU"
dwType:=SELF:_Type
lInit:=TRUE
CASE cAccessTypeList=="UN" .OR. cAccessTypeList=="ON"
dwType:=udwType
lInit:=TRUE
OTHERWISE
TSTrace Warning "Invalid parameter(s), Expected 'U|O', 'U|(Any)' and 'U|N(DW)'" ; ...
... +", Found '"+cAccessTypeList+"'"
SELF:InvalidateObject( )
lInit:=FALSE
END