Vererbung und Schnittstellen

Bei der Modellierung von Klassen stellt man häufig fest, dass sich einige Klassen der Struktur und dem Verhalten nach anderen Klassen ähneln. In solchen Fällen hat man die Möglichkeit, die gemeinsamen Strukturen und Verhaltensweisen zu extrahieren und in einer allgemeineren Klasse unterzubringen. Dies führt zu Spezialisierungs- bzw. Generalisierungshierarchien. Die Beziheung zwischen den speziellen Klassen (den sogenannte Unterklassen) sowie der allgemeineren Klasse (der sogenannten Oberklasse) wird als Vererbung bezeichnet.

Implementieren von Vererbung

Vererbungen werden über den Zusatz INHERITING FROM realisiert. Das Überschreiben von Methoden erfolgt mit dem Zusatz REDEFINITION, der Zugriff auf Elemente der Oberklasse erfolgt über den reservierten Namen SUPER.

CL_CAR.abap

CLASS cl_car DEFINITION PUBLIC CREATE PUBLIC INHERITING FROM cl_vehicle.

  PUBLIC SECTION.
    DATA seats TYPE i READ-ONLY.

    METHODS constructor
      IMPORTING
        make  TYPE string
        model TYPE string
        seats TYPE i
      RAISING
        cx_initial_parameter.

    METHODS to_string REDEFINITION.

  PROTECTED SECTION.

  PRIVATE SECTION.

ENDCLASS.

CLASS cl_car IMPLEMENTATION.

  METHOD constructor.
    super->constructor( make = make model = model ).
    me->seats = seats.
  ENDMETHOD.

  METHOD to_string.
    string = super->to_string( ) && | { seats }|.
  ENDMETHOD.
ENDCLASS.

Polymorphie

Unter Polymorphie (griechisch für Vielgestaltigkeit) versteht man in der Programmierung die Tatsache, dass eine Referenzvariable zur Laufzeit durch Typumwandlung auf Objekte unterschiedlicher Klassen zeigen kann und dass dadurch ein Methodenaufruf unterschiedliche Ergebnisse erzielen kann. Man spricht in diesem Zusammenhang auch vom statischen Datentyp einer Variablen (der zur Designzeit festgelegt wird) und vom dynamischen Datentyp (der zur Laufzeit zugewiesen wird). Die Typumwandlung von der abgeleiteten Unterklasse zur Oberklasse bezeichnet man als Upcast, die Rückumwandlung als Downcast. Der Downcast erfolgt dabei über den Operator CAST.

CL_MAIN.abap

CLASS cl_main DEFINITION PUBLIC FINAL CREATE PUBLIC.
  PUBLIC SECTION.
    INTERFACES if_oo_adt_classrun.
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.

CLASS cl_main IMPLEMENTATION.

  METHOD if_oo_adt_classrun~main.

    DATA vehicle TYPE REF TO cl_vehicle.
    DATA car TYPE REF TO cl_car.

    car = NEW cl_car( make = 'Porsche' model = '911' seats = 2 ).

    " Upcast
    vehicle = car.

    " Downcast without type check
    TRY.
      car = CAST #( vehicle ).
    CATCH cx_sy_move_cast_error INTO DATA(e).
      out->write( e->get_text( ) ).
    ENDTRY.

    " Downcast with type check
    IF vehicle IS INSTANCE OF cl_car.
      car = CAST #( vehicle ) .
    ENDIF.

  ENDMETHOD.

ENDCLASS.

Hinweis

Zur Typprüfung beim Downcast kann der Ausdruck IS INSTANCE OF verwendet werden.

Abstrakte und finale Klassen und Methoden

Das Schlüsselwort ABSTRACT ermöglicht die Definition von abstrakten Klassen und Methoden, das Schlüsselwort FINAL die Definition von finalen Klassen und Methoden:

• abstrakte Klassen können nicht instanziiert werden
• abstrakte Methoden besitzen keine Implementierung und müssen von den abgeleiteten Klassen implementiert werden.
• finale Klassen können nicht abgeleitet werden
• finale Methode können nicht überschrieben werden

Schnittstellen

Schnittstellen (Interfaces) sind im Prinzip abstrakte Klassen, die ausschließlich abstrakte Methoden besitzen. Durch Schnittstellen wird sichergestellt, dass Klassen bestimmte Methoden bereitstellen und dass verschiedene Klassen miteinander kommunizieren können. Sie werden mit dem Schlüsselwort INTERFACE definiert, in der implementierenden Klasse mit dem Schlüsselwort INTERFACES bekanntgegeben und können analog zu Klassen abgeleitet werden.

IF_PARTNER.abap

INTERFACE if_partner.

  METHODS to_string.

ENDINTERFACE.

CL_RENTAL.abap

CLASS cl_rental DEFINITION PUBLIC CREATE PUBLIC.

  PUBLIC SECTION.
    INTERFACES if_partner.

    DATA vehicles TYPE TABLE OF cl_vehicle READ-ONLY.

    METHODS add_vehicle
      IMPORTING
        vehicle TYPE REF TO cl_vehicle.

  PROTECTED SECTION.

  PRIVATE SECTION.

ENDCLASS.

CLASS cl_rental IMPLEMENTATION.

  METHOD add_partner.
    APPEND vehicle TO vehicles.
  ENDMETHOD.

  METHOD if_partner~to_string.
    LOOP AT vehicles INTO DATA(vehicle).
      string &&= vehicle->to_string( ).
    ENDLOOP.
  ENDMETHOD.

ENDCLASS.