ABAP里的软引用(weak reference)的用法

REPORT z.

DATA: aa TYPE REF TO zcl_exception_test.

aa = NEW #( ).

DATA(lo_ref) = NEW cl_abap_weak_reference( oref = aa ).

DATA(result) = cl_abap_memory_utilities=>is_strongly_referenced( ref = lo_ref ).

WRITE: / result.

CLEAR: aa.

DATA(result2) = cl_abap_memory_utilities=>is_strongly_referenced( ref = lo_ref ).

WRITE: / result2.

DATA: lt_table TYPE string_table.

DO 10 TIMES.

 DO 1000 TIMES.

   APPEND '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' TO lt_table.

 ENDDO.

 cl_abap_memory_utilities=>get_memory_size_of_object( EXPORTING object = lt_table

     IMPORTING

       bound_size_alloc = DATA(bound_alloc)

       bound_size_used = DATA(bound_used) ).

 WRITE: / 'bound alloc:' , bound_alloc.

 WRITE: / 'bound used:' , bound_used.

ENDDO.