Copy
(Available in 01 TS COM - TS_COM_VariantArg)
Source
METHOD Copy( 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( VariantCopy( pstruDestWinVariant, SELF:_WinVariantArgBot ; ...
... ), TRUE )
TSTrace Warning "!VariantCopy(pstruDestWinVariant,SELF:_WinVariantArgBot)"
lRetVal:=FALSE
OTHERWISE
lRetVal:=TRUE
END
TSTrace Leave
RETURN lRetVal