Clear

(Available in 01 TS COM - TS_COM_VariantArg)

Source

METHOD Clear( ) AS LOGIC PASCAL CLASS TS_VariantArg
LOCAL lClear AS LOGIC
   TSTrace Enter
   IF SELF:_TYPEOF<>TS_USUAL2VARIANT_MAKE_NORMAL
      IF SELF:Convert2Normal( )
         IF TS_HFailed( VariantClear( SELF:_WinVariantArgBot  ; ...
        ... ), TRUE )
            TSTrace Warning "TS_HFailed(VariantClear(SELF:_WinVariantArgBot),TRUE)"
            lClear:=FALSE
         ELSE
            lClear:=TRUE
         END
      ELSE
         TSTrace Warning "!SELF:Convert2Normal()"
         lClear:=FALSE
      END
   ELSE
      IF TS_HFailed( VariantClear( SELF:_WinVariantArgBot ),  ; ...
     ... TRUE )
         TSTrace Warning "TS_HFailed(VariantClear(SELF:_WinVariantArgBot),TRUE)"
         lClear:=FALSE
      ELSE
         lClear:=TRUE
      END
   END
   TSTrace Leave
RETURN lClear