SAP ABAP 多态

术语多态性字面上的意思是 "多种形式"。从面向对象的角度来看,多态性与继承相结合,使继承树中的各种类型可以互换使用。也就是说,当存在类的层次结构并且它们通过继承相关联时,就会发生多态性。ABAP 多态性意味着,根据调用方法的对象的类型,对方法的调用将导致执行不同的方法。

以下程序包含一个抽象类 class_prgm、2个子类(class_proceduralclass_OO)和一个测试驱动程序类 class_type_approach。在这个实现中,类方法 start 让我们显示编程类型及其方法。如果仔细观察方法 start 的签名,就会发现它接受一个 class_prgm 类型的导入参数。然而,在 Start-Of-Selection 事件时,此方法已在运行时使用 class_proceduralclass_OO 类型的对象调用。


实例

  1. Report ZPolymorphism1.
  2. CLASS class_prgm Definition Abstract.
  3. PUBLIC Section.
  4. Methods: prgm_type Abstract,
  5. approach1 Abstract.
  6. ENDCLASS.
  7. CLASS class_procedural Definition
  8. Inheriting From class_prgm.
  9. PUBLIC Section.
  10. Methods: prgm_type Redefinition,
  11. approach1 Redefinition.
  12. ENDCLASS.
  13. CLASS class_procedural Implementation.
  14. Method prgm_type.
  15. Write: 'Procedural programming'.
  16. EndMethod. Method approach1.
  17. Write: 'top-down approach'.
  18. EndMethod. ENDCLASS.
  19. CLASS class_OO Definition
  20. Inheriting From class_prgm.
  21. PUBLIC Section.
  22. Methods: prgm_type Redefinition,
  23. approach1 Redefinition.
  24. ENDCLASS.
  25. CLASS class_OO Implementation.
  26. Method prgm_type.
  27. Write: 'Object oriented programming'.
  28. EndMethod.
  29. Method approach1.
  30. Write: 'bottom-up approach'.
  31. EndMethod.
  32. ENDCLASS.
  33. CLASS class_type_approach Definition.
  34. PUBLIC Section.
  35. CLASS-METHODS:
  36. start Importing class1_prgm
  37. Type Ref To class_prgm.
  38. ENDCLASS.
  39. CLASS class_type_approach IMPLEMENTATION.
  40. Method start.
  41. CALL Method class1_prgmprgm_type.
  42. Write: 'follows'.
  43. CALL Method class1_prgmapproach1.
  44. EndMethod.
  45. ENDCLASS.
  46. Start-Of-Selection.
  47. Data: class_1 Type Ref To class_procedural,
  48. class_2 Type Ref To class_OO.
  49. Create Object class_1.
  50. Create Object class_2.
  51. CALL Method class_type_approachstart
  52. Exporting
  53. class1_prgm = class_1.
  54. New-Line.
  55. CALL Method class_type_approachstart
  56. Exporting
  57. class1_prgm = class_2.

结果如下:

  1. Procedural programming follows top-down approach
  2. Object oriented programming follows bottom-up approach

ABAP 运行时环境在分配导入参数 class1_prgm 期间执行隐式转换。此功能有助于通用地实现 start 方法。与对象引用变量相关联的动态类型信息允许 ABAP 运行时环境将方法调用与对象引用变量指向的对象中定义的实现动态绑定。

例如,class_type_approach 类中方法 start 的导入参数 class1_prgm 指的是一个永远无法单独实例化的抽象类型。

每当使用具体的子类实现(如 class_proceduralclass_OO)调用该方法时,class1_prgm 引用参数的动态类型都绑定到这些具体类型之一。因此,对方法 prgm_typeapproach1 的调用是指 class_proceduralclass_OO 子类中提供的实现,而不是类 class_prgm 中提供的未定义的抽象实现。