CopyIndirect
(Available in 01 TS COM - TS_COM_VariantArg)
Source
METHOD CopyIndirect( pstruDestWinVariant AS _WinVARIANTARG ) AS LOGIC PASCAL CLASS ; ...
...TS_VariantArg
LOCAL lRetVal AS LOGIC
TSTrace Enter
DO CASE
CASE pstruDestWinVariant==NULL_PTR
TSTrace Warning "pstruDestWinVariant==NULL_PTR"
lRetVal:=FALSE
CASE SELF:_WinVariantArgBot==NULL_PTR
TSTrace Warning "SELF:_WinVariantArgBot==NULL_PTR"
lRetVal:=FALSE
CASE TS_HFailed( VariantCopyInd( pstruDestWinVariant, SELF:_WinVariantArgBot ; ...
... ), TRUE )
TSTrace Warning "!VariantCopy(pstruDestWinVariant,SELF:_WinVariantArgBot)"
lRetVal:=FALSE
OTHERWISE
lRetVal:=TRUE
END
TSTrace Leave
RETURN lRetVal