Axit
(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)
Source
METHOD Axit( ) CLASS TS_AtomizerItem
TSTrace Enter
UnRegisterAxit( SELF )
IF SELF:_PSZItem<>NULL_PTR
IF SELF:_PSZItem<>@_TS_AtomizerTargetForNullPSZ
TS_MemFree( SELF:_PSZItem, TRUE )
END
SELF:_PSZItem:=NULL_PTR
END
SELF:_Len:=0U
SELF:_Owner:=NULL_OBJECT
SELF:_TYPEOF:=0L
SELF:_Match:=NULL_OBJECT
SELF:Value:=NULL_STRING
TSTrace Leave DESTROY
RETURN NIL