IsAccess
(Available in 01 TS COM - TS_COM_DelegateIDispatch)
Purpose
Test if 'symName' is a property get
Syntax
? oDelegateIDispatch:IsAccess( #Item )
Arguments
Description
Test if 'symName' is a property get
Returns
LOGIC
Source
METHOD IsAccess( 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_PROPERTYGET ; ...
... , TRUE )
ELSE
TSTrace Warning "!SELF:FInit"
lRetVal:=FALSE
END
TSTrace Leave symName
RETURN lRetVal