ABAP中每次CREATE OBJECT创建对象都是独立的

r_plane    TYPE REF TO lcl_airplane定义引用参考变量，CREATE OBJECT创建对象，但每次创建对象都是不同的。

1. REPORT yleon_001.
   
2. 
   
3. INCLUDE yleon_001_airs_a.
   
4. 
   
5. DATA: r_plane    TYPE REF TO lcl_airplane,
   
6.       plane_list TYPE TABLE OF REF TO lcl_airplane.
   
7. 
   
8. START-OF-SELECTION.
   
9. 
   
10.   CREATE OBJECT r_plane.
    
11.   APPEND r_plane TO plane_list.
    
12.   CREATE OBJECT r_plane.
    
13.   APPEND r_plane TO plane_list.
    
14.   CREATE OBJECT r_plane.
    
15.   APPEND r_plane TO plane_list.
    
16.   APPEND r_plane TO plane_list.
    
17.   APPEND r_plane TO plane_list.

复制代码

1. *&---------------------------------------------------------------------*
   
2. *&  包含                YLEON_001_AIRS_A
   
3. *&---------------------------------------------------------------------*
   
4. CLASS lcl_airplane DEFINITION.
   
5.   PUBLIC SECTION.
   
6.     CONSTANTS: pos_1 TYPE i VALUE 30.
   
7.     METHODS: set_attributes IMPORTING
   
8.                               im_name      TYPE string
   
9.                               im_planetype TYPE saplane-planetype,
   
10.       display_attributes.
    
11.     CLASS-METHODS: display_n_o_airplanes.
    
12. 
    
13.   PRIVATE SECTION.
    
14.     DATA: name      TYPE string,
    
15.           planetype TYPE saplane-planetype.
    
16.     CLASS-DATA: n_o_airplanes TYPE i.
    
17. 
    
18. ENDCLASS. "lcl_airplane DEFINITION
    
19. 
    
20. CLASS lcl_airplane IMPLEMENTATION.
    
21.   METHOD set_attributes.
    
22.     name = im_name.
    
23.     planetype = im_planetype.
    
24. * doesn't make sense so much -
    
25. * only in order to get an effect
    
26. * after calling display_n_o_airplanes:
    
27.     n_o_airplanes = n_o_airplanes + 1.
    
28.   ENDMETHOD. "set_attributes
    
29. 
    
30.   METHOD display_attributes.
    
31.     WRITE: / icon_ws_plane AS ICON,
    
32.     / 'Name of airplane:'(001), AT pos_1 name,
    
33.     / 'Airplane type'(002), AT pos_1 planetype.
    
34.   ENDMETHOD. "display_attributes
    
35. 
    
36.   METHOD display_n_o_airplanes.
    
37.     WRITE: /, / 'Total number of planes'(ca1),
    
38.     AT pos_1 n_o_airplanes LEFT-JUSTIFIED, /.
    
39.   ENDMETHOD. "display_n_o_airplanes
    
40. 
    
41. ENDCLASS. "lcl_airplane IMPLEMENTATION

复制代码

调试结果：

可以看到虽然每次CREATE OBJECT创建对象的名字都是一样的，但是他们在内存中的地址是不一样的。