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