IsValidObject
(Available in 01 TS COM - TS_COM_DelegateIDispatchAuto)
Source
ACCESS IsValidObject AS LOGIC PASCAL CLASS TS_DelegateIDispatchAuto
LOCAL lIsValidObject AS LOGIC
TSTrace Enter
DO CASE
CASE SELF:_DelegateIDispatch==NULL_OBJECT
TSTrace Warning NB Debug "SELF:_DelegateIDispatch==NULL_OBJECT"
lIsValidObject:=FALSE
CASE SELF:_DelegateIDispatch:FInit
lIsValidObject:=TRUE
OTHERWISE
lIsValidObject:=FALSE
END
TStrace Leave
RETURN lIsValidObject