Code: Alles auswählen.
CASE TYPE OF lr_object.
WHEN TYPE zif_test INTO DATA(lr_test).
* Das Objekt implementiert das Interface.
WHEN OTHERS.
* Das Objekt implementiert das Interface nicht.
ENDCASE.
DATA: lr_test TYPE REF TO zif_test.
TRY.
lr_test ?= lr_object.
* Das Objekt implementiert das Interface.
CATCH cx_root.
* Das Objekt implementiert das Interface nicht.
ENDTRY.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag (Insgesamt 2):
Thomas R. • deejey