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