ABAP类型转换Widening-casting和Narrowing-casting的区别

Narrowing-casting：UP-CASTING（扩展构造） 向上继承，说的是父类对象
向上类型转换（隐式／自动类型转换），子类到父类的转换
无风险，如将杯子中的水倒入壶中

Widening-casting：
Down-casting（缩小构造）向下继承，也就是强制性向下赋值类型，说的是子类对象
向下类型转换（强制类型转换），父类到子类的转换
有风险，如将壶中的水倒入杯子中，可能会有溢出的风险

这种转换只会出现在父类与子类的转换中。在OO里，类的继承是单向的，也就是子类继承父类，父类却不知道它的子类是哪一个。当子类继承父类之后，它就具有父类的所有属性，也可以访问父类里的所有组件（PUBLICK和protect, Private除外）。 子类继承父类之后，可以通过redefinition来修改父类中的方法，但是没有改变父类中的结构。

我们在系统里定义了一个Superclass: LCL_SUPERCLASS，它一个子类LCL_SUBCLASS并且CL_SUBCLASS继承了LCL_SUPERCLASS，子类的继承是通过INHERTING FROM来实现的。

1. DATA: lo_superclass TYPE REF TO lcl_superclass,
   
2.       lo_subclass   TYPE REF TO lcl_subclass,
   
3.       lo_subclass01 LIKE lo_subclass.
   
4. 
   
5. CREATE OBJECT lo_subclass.

复制代码

1、Narrowing-casting

1. lo_superclass = lo_subclass.

复制代码

如果将子类参考分配给父类参考，则对于完成转型分配后在语法上进行访问的所有组件来说，可确保其在实例中使用。子类始终至少包含与父类相同的组件。

从子类对象的“更多属性、方法”切换到父类对象“较少的属性、方法”，称为Narrowing-casting
通常我们把Super类看作树类结构的Top，而子类作为Down，所以子类到父类的转换也称为UP-CASTING，相反父类到子类的转换也可以称为Down-casting

2、Widening-casting

1. DATA:lo_cast_error TYPE REF TO cx_sy_move_cast_error.
   
2. 
   
3. TRY .
   
4.     lo_subclass01 ?= lo_superclass.
   
5.   CATCH cx_sy_move_cast_error INTO lo_cast_error.
   
6.     WRITE: / 'Widening cast failed'.
   
7. ENDTRY.
   

复制代码

向下转型分配操作符move...?to或其缩写形式？=。否则，你会收到一条消息，通知你在实例中应用转型分配后，无法确定所有组件都可以在语法上进行访问。通常，与父类相比，子类包含更多的组件。

从父类对象的“较少的属性、方法”切换到子类对象“更多属性、方法”，称为Widening-casting

接口与类之间也有转型分配


3、我们用一个例子来加深理解

1. CLASS lcl_shape DEFINITION.
   
2.   PUBLIC SECTION.
   
3.     METHODS draw.
   
4. ENDCLASS.
   
5. 
   
6. CLASS lcl_shape IMPLEMENTATION.
   
7.   METHOD draw.
   
8.     WRITE :/ 'Drawing any Shape'.
   
9.   ENDMETHOD.
   
10. ENDCLASS.
    
11. 
    
12. CLASS lcl_circle DEFINITION INHERITING FROM lcl_shape.
    
13.   PUBLIC SECTION.
    
14.     METHODS: draw REDEFINITION,
    
15.              calc_area.
    
16. ENDCLASS.
    
17. 
    
18. CLASS lcl_circle IMPLEMENTATION.
    
19.   METHOD draw.
    
20.     WRITE :/ 'Drawing specific shape: Circle'.
    
21.   ENDMETHOD.
    
22. 
    
23.   METHOD calc_area.
    
24.     WRITE :/ 'Area Of Crcle = 2iiR'.
    
25.   ENDMETHOD.
    
26. ENDCLASS.
    
27. 
    
28. START-OF-SELECTION.
    
29.   DATA : o_cir TYPE REF TO lcl_circle.
    
30. 
    
31.   CREATE OBJECT o_cir.
    
32.   CALL METHOD o_cir->draw( ). " calls subclass Draw() method
    
33.   CALL METHOD o_cir->calc_area( ).
    
34. 
    
35.   ULINE.
    
36.   "——— Narrow cast(Upcast)—————"
    
37.   DATA : o_shp TYPE REF TO lcl_shape.
    
38.   o_shp = o_cir. "  Narrow cast(Upcast)
    
39.   CALL METHOD o_shp->draw( ). " calls sub class Draw() method
    
40.   "call METHOD o_shp->calc_area( ) . " compilation error
    
41. 
    
42.   ULINE.
    
43.   "———- Widening Cast(Downcast) ———–"
    
44.   DATA : o_cir1 TYPE REF TO lcl_circle.
    
45.   " o_cir1 = o_shp. "  complilation error
    
46.   o_cir1 ?= o_shp.  " Widening Cast(Downcast)
    
47.   CALL METHOD o_cir1->draw( ). " calls subclass Draw() method
    
48.   CALL METHOD o_cir1->calc_area( ).

复制代码

执行结果

子类到父类转换，变少了，不能计算面积，所以叫Narrowing Cast( Upcasting)
父类到子类的转换，变多了，能计算图形（圆）的面积，所以叫Widening Cast(Downcasting)

学习受教。。。