IsMethod

 (Available in 01 TS COM - TS_COM_DelegateIDispatch)

Purpose

Test if 'symName' is a method

Syntax

? oDelegateIDispatch:IsMethod( #Item )

Arguments

symName
SYMBOL

Description

Test if 'symName' is a method

Returns

LOGIC

Source

METHOD IsMethod( symName AS SYMBOL ) AS LOGIC PASCAL CLASS TS_DelegateIDispatch
LOCAL dwDispIDMember AS DWORD
LOCAL lRetVal AS LOGIC
   TSTrace Enter symName
   IF SELF:FInit
      lRetVal:=SELF:_IsInvoke( symName, @dwDispIDMember, DISPATCH_METHOD ; ...
     ... , TRUE )
   ELSE
      TSTrace Warning "!SELF:FInit"
      lRetVal:=FALSE
   END
   TSTrace Leave symName
RETURN lRetVal