向上/向下强转

标签：select   efi   rom   def   ref   person   object   对象   class   

*----------------------------------------------------------------------*
*       CLASS person DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS person DEFINITION.
ENDCLASS.                    "person DEFINITION
*----------------------------------------------------------------------*
*       CLASS stud DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS stud DEFINITION INHERITING FROM person.
ENDCLASS.                    "stud DEFINITION

START-OF-SELECTION.
  DATA p TYPE REF TO person.
  DATA s TYPE REF TO stud.
  CREATE OBJECT s.
  p = s."向上自动转型
  "拿开注视运行时抛异常，因此p此时指向的对象不是Student，而是person之所以能强转的前提是p指向的是student
  "CREATE OBJECT p.
  s ?= p."向下强转型

向上/向下强转

标签：select   efi   rom   def   ref   person   object   对象   class   

原文地址：http://www.cnblogs.com/zxiu/p/7525128.html