Question

我想使用BINDEVENT()触发对象的方法，但该方法可能不存在。因此，我想在发出BINDEVENT()之前检查方法是否已定义。

例如，在以下代码段中，如果oHandler.myresize()不存在，则会在BINDEVENT()行触发错误。

PUBLIC oHandler
oHandler=NEWOBJECT("myhandler")
DO (_browser)
BINDEVENT(_SCREEN,"Resize",oHandler,"myresize")

DEFINE CLASS myhandler AS Session
   PROCEDURE myresize
      IF ISNULL(_obrowser) THEN
         UNBINDEVENTS(THIS)
      ELSE
         _obrowser.left = _SCREEN.Width - _obrowser.width
      ENDIF
   RETURN
ENDDEFINE

因此，我想检查方法myresize()是否存在是否有任何语言功能用于此目的？它与php函数function_exits()或method_exists()非常相似。

Answer 1

PEMSTATUS（VariableNameRepresentingTheObject，“MethodOrPropertyLookingFor”，5）

如果存在于给定对象上，则返回true或false。

VFP函数用于检查是否定义了方法

1 个答案: