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