abap 面向对象学习2

dew

REPORT  Z_OO_04.
class opearator DEFINITION deferred.

DATA: O_OPER TYPE REF TO OPEARATOR,
      VNUM1 TYPE I VALUE 10,
      VNUM2 TYPE I VALUE 2.

CLASS OPEARATOR DEFINITION.
  PUBLIC SECTION.
   " 定义方法，带两个入参一个出参 like public int add(int num1,int num2)
   METHODS : ADD IMPORTING NUM1 TYPE I NUM2 TYPE I  
                 EXPORTING SUM TYPE I,
             MILUS IMPORTING NUM1 TYPE I NUM2 TYPE I
                 EXPORTING RESULT TYPE I.
ENDCLASS.

CLASS OPEARATOR IMPLEMENTATION.
  METHOD ADD.
    SUM = NUM1 + NUM2.
    WRITE: / SUM.
  ENDMETHOD.
  METHOD MILUS.
    RESULT = NUM1 - NUM2.
    WRITE: / RESULT.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
CREATE OBJECT O_OPER.
CALL METHOD O_OPER->ADD
     EXPORTING NUM1 = VNUM1 NUM2 = VNUM2.

CALL METHOD O_OPER->MILUS
     EXPORTING NUM1 =  VNUM1 NUM2 = VNUM2.

" 请注意，在类定义的时候IMPORTING 是入参，调用的时候用EXPORINT;

zwnowok

感谢分享