Как определить является ли некоторый класс наследником указанного класса?

gentle

Еще один вариант- более лаконичный. Какой лучше, пока трудно сказать....

Code:

Method IsDescendantOf_2 .
    " importing instance        type ref to object
    "           parentClassName type string
    "returning value(IsDescendant) type abap_Bool
data:
   SuperClassDsrb type ref to cl_abap_objectDescr.
"----------------------------------------------

  SuperClassDsrb ?= cl_abap_typedescr=>describe_by_name( parentClassName  ).

  if SuperClassDsrb->applies_to( instance ) = abap_true.
     IsDescendant = abap_true.
  else.
     IsDescendant = abap_false.
  endif.

  free SuperClassDsrb.

endMethod.

LAT

gentle написал:

Еще один вариант- более лаконичный. Какой лучше, пока трудно сказать....

2-й лучше, он учитывает еще и реализацию интерфейсов. Только нужно еще и проверку на ошибки (exception) при вызове describe_by_name добавить.

gentle

Попозже будет учтено и это.
:wink:

LAT

В 7.50 появился INSTANCE OF: "The new predicate expression IS INSTANCE OF can be used to detect the dynamic type of an object reference variable. This makes it possible to check the feasibility of a down cast before it is executed. "

Правила форума

Как определить является ли некоторый класс наследником указанного класса?

Кто сейчас на конференции