IsValidObject

(Available in 01 TS COM - TS_COM_VariantArg)

Source

ACCESS IsValidObject AS LOGIC PASCAL CLASS TS_VariantArg
LOCAL lIsValidObject AS LOGIC
   TSTrace Enter
   IF SUPER:IsValidObject
      IF SELF:_WinVariantArgBot<>NULL_PTR
         lIsValidObject:=TRUE
      ELSE
         TSTrace Warning NB Debug "SELF:_WinVariantArgBot==NULL_PTR"
         lIsValidObject:=FALSE
      END
   ELSE
      TSTrace Warning NB Debug "!SUPER:IsValidObject"
      lIsValidObject:=FALSE
   END
   TSTrace Leave
RETURN lIsValidObject