ABAP对象-面向对象（转）

转自：https://www.jianshu.com/p/f847c8f71438

1 面向对象基础

不多赘述何为对象与类。简单回顾一下在面向对象特性。

封装限定内部资源的可见性
多态相同名称的方法在不同类中不同的体现
继承派生类

REPORT z_simple_object.
CLASS application DEFINITION.
  PUBLIC SECTION.
    METHODS:show_text.
  PRIVATE SECTION.
    DATA text(100) TYPE c  VALUE 'This is my first ABAP Object'.
ENDCLASS.

CLASS application IMPLEMENTATION.
  METHOD show_text.
  WRITE text.
ENDMETHOD.
ENDCLASS.

DATA ob_app TYPE REF TO application.

START-OF-SELECTION.
  CREATE OBJECT ob_app.
  CALL METHOD ob_app->show_text.

简单ABAP对象

2 类和对象

ABAP中的类由程序内部的局域类和全局类，其作用范围不同。但ABAP中的全局类是通过ABAP工作台中的类创建工具Class Bulider开发的，保存在系统类库程序（Class pool）中，可供所有程序使用；而在程序内部定义的类则一般只应用于本程序，但二者的定义原则和格式是一致的。

1 程序中的类定义

（1）类声明及实现

ABAP使用CLASS/ENDCLASS语句进行类定义，且由声明部分和具体实现部分组成。类声明部分中包含类成员（Component，又称Member，具体包括类的属性，方法和事件等）的名称及说明。

CLASS class DEFINITION.
   PUBLIC SECTION.
      ... PROTECTED SECTION. ... PRIVATE SECTION. ... ENDCLASS. CLASS class IMPLEMENTATION. METHOD ... ENDMETHOD. ... ENDCLASS.

（2）成员可见性

类的各个成员都必须在DEFINITION部分进行声明。在ABAP对象中，共有三种可见性：

公共部分(PUBLIC SECTION)中定义的类成员可以被所有对象使用，包括类方法及派生类中定义的方法。
受保护部分(PROTECTED SECTION) 中定义的类成员只能被类及其派生类中的方法使用，外部不可见。
私有部分(PRIVATE SECTION)中定义的类成员只能被本身的方法所使用。

（3）成员类型

ABAP类中可以定义三种不同类型的成员，分别是属性，方法和事件。根据生存期的不同，由实例成员和静态成员之分。

实例成员仅隶属于一个特定的类实例，即一个对象，而静态成员则属于整个类，是所有的类对象共享的内存区域。

属性
对于实例属性，使用DATA语句定义，语法与数据对象声明相同；对于静态属性，则使用CLASS-DATA语句进行定义。属性在类的声明部分进行定义。

CLASS vehicle DEFINITION.
    PULIC SECTION.
        CLASS-DATA class_name(10) TYPE c VALUE 'Vehicle'.
    PROTECTED SECTION.
        DATA speed TYPE i.
ENDCLASS.

对于公有组件，可以在属性定义语句中增加READ-ONLY关键字，则该属性不能被类外部读取但可被类的内部方法所修改。这种定义方法避免了每次读取类属性时都需要分配相应的读取方法，因为直接获得类属性要比通过类方法更为高效。

方法
实例方法只能访问该对象实例中的所有属性和事件，而静态方法则只能访问类的静态属性和事件。
类方法需要在类的声明和实现两部分进行定义，在类的声明部分说明方法的参数接口，在类的实现部分则通过ABAP代码完成具体的功能。方法的声明关键字为METHODS和CLASS-METHODS；实现部分代码在语句METHOD和ENDMETHOD之间定义。
方法声明语法如下

METHODS meth
  IMPORTING  ... i TYPE type  ...
  EXPORTING... i TYPE type  ...
  CHANGING ... i TYPE type  ...
  EXCEPTIONS ... i TYPE type  ...

Importing 用于定义输入参数
Exporting 用于定义输出参数
Changing 用于定义输入输出参数
Exceptions 用于定义可能出现的异常

在方法实现部分，不需要重复定义这个接口

METHOD meth
    ...
  <ABAP Statement> ... ENDMETHOD.

REPORT z_simple_object.
CLASS vehicle DEFINITION.
  PUBLIC SECTION.
    CLASS-DATA class_name(10) TYPE c VALUE 'Vehicle'.
    METHODS:accelerate,
      show_speed.
  PROTECTED SECTION.
    DATA speed TYPE i.
ENDCLASS.

CLASS vehicle IMPLEMENTATION.
  METHOD accelerate.
    speed = speed + 1.
  ENDMETHOD.
  METHOD show_speed.
    WRITE: / 'Speed:', speed.
  ENDMETHOD.
ENDCLASS.

2 定义系统全局类
可以长期存储，维护供整个系统调用，并在系统间传输。该类型不包含事件块，子程序，屏幕等元素，也不包含共有数据部分，因为也不能分配事务代码。

（1）全局类定于

SE24

对象类型选择

类创建对话框

类属性定义

说明：
level(级别，包括静态属性Static Attr. 实例属性Instance Attr. 常量Constant)
Visibility（可见性，PUBLIC,PROTECTED,PRIVATE）
Attributes(属性)，Methods(方法)，Parameters(参数接口)
在树形结构中双击方法名称，可以添加该方法的代码

类方法实现

（4）使用全局类

REPORT z_global_class.
DATA: o_vehicle TYPE REF TO z_cl_vehicle, count TYPE i. START-OF-SELECTION. CREATE OBJECT o_vehicle. DO 5 TIMES. CALL METHOD o_vehicle->accelerate. ENDDO. CALL METHOD o_vehicle->show_speed.

使用全局类

3 程序中的类实例

ABAP类定义之后，并没有实现任何功能，类似于数据类型定义，实际应用则必须通过类的实例-对象来实现。步骤如下：
1）定义类的声明与实现方法
2）使用DATA语句中的TYPE REF TO 选项参照类类型声明引用变量
3）使用CREATE OBJECT语句创建对象
4）通过"->"或"=>"运算符访问对象或类组件

（1）对象创建与引用

ABAP对象的创建和访问需要通过对象引用进行。在程序中，需要先根据对象类型声明引用类型变量，然后对该变量引用ABAP对象，该引用变量中实际存储的是ABAP对象的内存地址。

（2）访问对象组件

对象创建后，可以通过指向它的引用变量对其进行操作。可以使用的对象组件一般为当前可见的属性和方法，通过引用变量后接运算符“->”访问对象组件。oref->comp其中，oref代表引用类型变量，comp代表要访问的类成员。“->”为对象选择运算符，可以用于访问类中定义的实例组件和静态组件。
对于类中的静态组件而言，还有另外一种访问方式，可以不通过实例和引用变量进行，而是通过类名称本身使用类成员选择运算符“=>”直接对类进行操作。class=>comp

REPORT z_simple_object.
CLASS vehicle DEFINITION.
  PUBLIC SECTION.
    CLASS-DATA class_name(10) TYPE c VALUE 'Vehicle'.
    METHODS:accelerate,
      show_speed.
  PROTECTED SECTION.
    DATA speed TYPE i VALUE 1.
ENDCLASS.

CLASS vehicle IMPLEMENTATION.
  METHOD accelerate.
    speed = speed + 1.
  ENDMETHOD.
  METHOD show_speed.
    WRITE: / 'Speed:', speed.
  ENDMETHOD.
ENDCLASS.

DATA o_vehicle TYPE REF TO vehicle.

START-OF-SELECTION.
  WRITE vehicle=>class_name.
  CREATE OBJECT o_vehicle.
  CALL METHOD o_vehicle->accelerate.
  CALL METHOD o_vehicle->show_speed.

访问类组件

由于引用类型变量本身也可以被定义为类属性，因而可以出现下述的链式访问结构oref1->oref2->comp或者class=>oref->comp
上述的两种运算符提供类的外部访问，在某些情况下，对象本身需要知道自身的地址，可以使用局部引用变量ME，该变量隐式的存在与所有的实例方法中，当方法被调用时，该变量将包含自身的地址指针，这种用法称为对象的自身引用。

访问内容	语法格式
一个对象的实例属性或静态属性	orer->attr
类的静态属性	class=>attr
在类内部访问自身实例属性或静态属性	me->attr 或 attr
对象的实例属性或静态方法	CALL METHOD orer -> meth
类的静态方法	CALL METHOD class=>meth
在类内部访问自身实例方法或静态方法	CALL METHOD me->attr 或 CALL METHOD attr

（3）删除对象

对象占据程序内存，如果后续程序不再使用的对象，应该将其删除。系统对对象的删除操作与引用变量有关，系统将自动定时检测，如果一个对象不再被热任何变量引用，则将其删除，并释放其所占用的内存，这个操作就是通过垃圾回收机制完成。
垃圾收集器定时清除不再使用的对象，包括使用链式引用的对象，也可以被其检测删除。要让其发挥作用，只需简单的使用CLEAR语句初始化所有指向该对象的引用变量或者将引用变量的值改变。

REPORT z_simple_object.
CLASS vehicle DEFINITION.
  PUBLIC SECTION.
    CLASS-DATA class_name(10) TYPE c VALUE 'Vehicle'.
    METHODS:accelerate,
      show_speed.
  PROTECTED SECTION.
    DATA speed TYPE i VALUE 1.
ENDCLASS.

CLASS vehicle IMPLEMENTATION.
  METHOD accelerate.
    speed = speed + 1.
  ENDMETHOD.
  METHOD show_speed.
    WRITE: / 'Speed:', speed.
  ENDMETHOD.
ENDCLASS.

DATA: o_vehicle1 TYPE REF TO vehicle,
      o_vehicle2 LIKE o_vehicle1.

START-OF-SELECTION.
  CREATE OBJECT: o_vehicle1, o_vehicle2.
  o_vehicle1 = o_vehicle2.
  CLEAR o_vehicle2.

该程序中，当o_vehicle1指向新对象后，先创建的对象将被清除，而程序初始化变量o_vehicle2后，由于o_vehicle1仍指向第二个对象，所以该对象依然处于活动状态。

3 方法

1 参数的定义和传递

类方法的参数接口部分是在类声明部分通过METHODS语句定义的，而且该接口不需要在类的实现部分再次出现，参数接口的语法如下：

METHODS meth
  IMPORTING ... [VALUE(Ii) | Ii] TYPE type [OPTIONAL|DEFAULT defi] ...
  EXPORTING ... [VALUE(Ii) | Ii] TYPE type [OPTIONAL|DEFAULT defi] ... CHANGING ... [VALUE(Ii) | Ii] TYPE type [OPTIONAL|DEFAULT defi] ... RETURNING VALUE(r) EXCEPTIONS ... Xi ...

IMPORTING 指定一或多个输入参数
EXPORTING 指定一或多个输出参数
CHANGING 指定一或多个输入输出参数
VALUE 指定参数传递形式，VALUE则为值传递，也可使用VALUE中的REFERENCE附加项显示指定引用传递
TYPE 指定参数传递形式，也可使用LIKE参照已经定义好的数据对象类型
OPTIONAL和DEFAULR 通常情况下，已定义的输入参数必须在调用时进行传递，除非使用OPTIONAL选项指定该参数为可选的，此时程序将使用该参数类型的初始值进行传递，或者是使用DEFAULT选项后指定的默认值。
RETURNING 该选项可以替代IMPORTING和EXPORTING

2 调用方法

在调用方法时，除去指定为可选参数之外，所有的参数都必须传递相应的实参值。语法结构如下：

CALL METHOD [oref->|class=>] meth EXPORTING ... Ii = Fi ... IMPORTING ... Ei = Gi ... CHANGING ... Ci = Ci ... RECEIVING r = h EXCEPTIONS ... Xi = RCi ...

该语句格式适用于包括类内部直接调用（不需要操作符），实例调用（oref->）和静态调用(class=>)三种情况。其中参数定义时用IMPORTING选项指定的形参i此时将接受CALL METHOD语句中的EXPORTING中传递的实参f；而用EXPORTING指定的形参e此时将通过IMPORTING选项传递给实参g。
方法内部的意外处理与功能模块相似，异常通过RAISE和MESSAGE RAISE语句触发，并通过系统字段SY-SUBRC返回相关错误代码。

REPORT z_method_para.
CLASS vehicle DEFINITION.
  PUBLIC SECTION.
    METHODS: accelerate IMPORTING rate TYPE i,
      show_speed.
  PRIVATE SECTION.
    DATA speed TYPE i VALUE 0.
ENDCLASS.
CLASS vehicle IMPLEMENTATION.
  METHOD accelerate.
    speed = speed + rate.
  ENDMETHOD.
  METHOD show_speed.
    WRITE: / 'Speed:', speed.
  ENDMETHOD.
ENDCLASS.

DATA o_vehicle TYPE REF TO vehicle.

START-OF-SELECTION.
  CREATE OBJECT o_vehicle.
  CALL METHOD o_vehicle->accelerate EXPORTING rate = 2.
  CALL METHOD o_vehicle->accelerate EXPORTING rate = 2.
  CALL METHOD o_vehicle->show_speed.

调用方法

ABAP Objects还提供另一种形式

CALL METHOD [oref->|class=>] meth PARAMETER-TABLE ptab. EXCEPTION-TABLE etab.

其中实参必须在程序中放置在两个特定类型的内表中，传递给方法。其中参数表ptab可以参照类型组ABAP中的ABAP_PARMBIND(行类型)和ABAP_PARMBIND_TAB(表类型)生成；异常表etab可以参照ABAP_EXCBIND(行类型)和ABAP_EXCBIND_TAB(表类型)生成。

3 函数方法

函数也是一种过程模块其特殊之处是在调用时可以使用操作符（如“=”）来替代过程调用语句，并可作为操作数直接应用于操作语句中。

METHODS meth
   IMPORTING ... [VALUE(Ii)|Ii] TYPE type [OPTIONAL|DEFAULT def] ... RETURNING VALUE(r).

一个函数方法可以拥有任意数量的输入参数，但只有一个输出参数，且输出参数必须为值传递而且需要完全限定其类型。

CALL METHOD [oref->|class=>] meth EXPORTING ... Ii = Fi ... RECEIVING r = h.

REPORT z_functional_method.
CLASS circle DEFINITION. PUBLIC SECTION. METHODS get_area IMPORTING VALUE(i_radius) TYPE i RETURNING VALUE(r_size) TYPE f. PRIVATE SECTION. CONSTANTS pi TYPE f VALUE '3.1415926'. ENDCLASS. CLASS circle IMPLEMENTATION. METHOD get_area. r_size = i_radius ** 2 * pi. ENDMETHOD. ENDCLASS. * PARAMETERS radius TYPE i. DATA: o_circle TYPE REF TO circle, area TYPE f. START-OF-SELECTION. CREATE OBJECT o_circle. CALL METHOD o_circle->get_area EXPORTING i_radius = radius RECEIVING r_size = area. WRITE: / area. area = o_circle->get_area( radius ). WRITE: / area.

函数方法

4 构造方法

构造方法是由运行时环境自动调用的一种方法，用于为对象设定一个初始状态。构造方法也存在静态和实例两种形式。构造方法并不一定需要在类中定义，系统通常会自行生成一个默认的构造方法，将对象状态设置为初始值。
实例构造方法在每一次对象创建的过程中（即使用CREATE OBJCT语句时）被系统调用，如果在类声明部分进行声明，则需要在实现部分进行代码实现。该方法与一般方法有两点区别：一是有预定义名称CONSTRUCTOR；二是该方法必须在共有部分进行声明。

METHODS constructor
   IMPORTING ... [VALUE(Ii)|Ii] TYPE type [OPTIONAL|DEFAULT def] ... EXCEPTIONS ... e ...

构造方法中不包含任何形式的输出参数，其功能只是定义对象状态，而不是对其进行改变。构造方法在CREATE OBJECT语句中被调用，因此根据实例构造方法的定义，该语句本身也可以包含输出参数EXPORTING和返回值EXCEPTION选项。如果在对象创建过程中出现异常，则对象被删除，引用变量设为初始值。

REPORT z_method_constructor.
CLASS vehicle DEFINITION.
  PUBLIC SECTION.
    METHODS: accelerate IMPORTING rate TYPE i, constructor IMPORTING i_speed TYPE i, show_speed. PRIVATE SECTION. DATA speed TYPE i VALUE 0. ENDCLASS. CLASS vehicle IMPLEMENTATION. METHOD accelerate. speed = speed + rate. ENDMETHOD. METHOD show_speed. WRITE speed. ENDMETHOD. METHOD constructor. speed = i_speed. ENDMETHOD. ENDCLASS. DATA o_vehicle TYPE REF TO vehicle. START-OF-SELECTION. CREATE OBJECT o_vehicle EXPORTING i_speed = 4. CALL METHOD o_vehicle->accelerate EXPORTING rate = 2. CALL METHOD o_vehicle->accelerate EXPORTING rate = 2. CALL METHOD o_vehicle->show_speed.

来源：oschina

链接：https://my.oschina.net/u/4286839/blog/3407907

标签

optional