INIT
(Available in 01 TS COM - TS_COM_NULL)
Purpose
Use to pass a typed NULL-value over the COM interface
Syntax
oVariant:=TS_Usual2Variant( TS_NULL{ [unVT] } )
Arguments
Description
Use to pass a typed NULL-value over the COM interface
Example
METHOD CMCreateAutoSelect( ) CLASS TS_WIASCRIWia
LOCAL uRetVal AS USUAL
uRetVal:=SELF:SendCreateInstance( NULL_SYMBOL, #Create, TS_NULL ; ...
... { } )
RETURN uRetVal
Source
METHOD INIT( unVT ) CLASS TS_NULL
TSTrace Enter CREATE
IF IsNumeric( unVT )
SELF:VT:=SHORT( unVT )
END
TSTrace Leave
RETURN SELF