面向对象之接口实现

*----------------------------------------------------------------------*
*       INTERFACE my_interface
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE my_interface.

  METHODS message.

ENDINTERFACE.                    "my_interface

*----------------------------------------------------------------------*
*       CLASS num_count DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS num_count DEFINITION.

  PUBLIC SECTION.
*----------------------------------------------------------------------*
*       INTERFACE my_interface DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
    INTERFACES my_interface.
    METHODS add_num.
  PRIVATE SECTION.
    DATA num TYPE i.

ENDCLASS.                    "my_interface DEFINITION

*----------------------------------------------------------------------*
*       CLASS num_count IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS num_count IMPLEMENTATION.

  METHOD my_interface~message.
    WRITE:/ 'The number is', num.
  ENDMETHOD.                    "my_interface~message

  METHOD add_num.
    ADD 1 TO num.
  ENDMETHOD.                    "add_num

ENDCLASS.                    "num_count IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS car DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS car DEFINITION.

  PUBLIC SECTION.
    INTERFACES my_interface.
    METHOD speed.

    PRIVATE SECTION.
      DATA wheel TYPE i.

  ENDCLASS.                    "car DEFINITION

*----------------------------------------------------------------------*
*       CLASS car IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS car IMPLEMENTATION.

  METHOD my_interface~message.
    WRITE:/ 'The number of wheels in the car is ', wheel.
  ENDMETHOD.                    "my_interface~message

  METHOD speed.
    ADD 10 TO wheel.
  ENDMETHOD.                    "speed

ENDCLASS.                    "car IMPLEMENTATION