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