学习笔记（二十五）

最新推荐文章于 2023-07-30 20:19:57 发布

qiume

最新推荐文章于 2023-07-30 20:19:57 发布

阅读量1.7k

点赞数

分类专栏：架构设计文章标签： table methods interface object

架构设计专栏收录该内容

61 篇文章 0 订阅

订阅专栏

INTERFACE info.
  METHODS output.
ENDINTERFACE.

CLASS bicycle DEFINITION.
  PUBLIC SECTION.
    INTERFACES info.
ENDCLASS.

CLASS truck DEFINITION.
  PUBLIC SECTION.
    INTERFACES info.
ENDCLASS.

CLASS bicycle IMPLEMENTATION.
  METHOD info~output.
    WRITE: 'Bike', /.
  ENDMETHOD.
ENDCLASS.

CLASS truck IMPLEMENTATION.
  METHOD info~output.
    WRITE: 'Truck', /.
  ENDMETHOD.
ENDCLASS.

DATA: inf TYPE REF TO info,
      bike TYPE REF TO bicycle,
      tk TYPE REF TO truck,
      table_info TYPE TABLE OF REF TO info.

START-OF-SELECTION.
  CREATE OBJECT: bike, tk.
  APPEND: bike TO table_info, tk TO table_info.

  LOOP AT table_info INTO inf.
    CALL METHOD inf->output.  **bike ?= info.
  ENDLOOP.