CASTING von Objekten

[Ines3642]

Hallo zusammen!

Ich habe das Problem "gelöst"... die Casts funktionieren in beide Richtungen, wenn ich die Referenzvariablen alle statisch allgemein definiere:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.       lo_auto   TYPE REF TO zcl_test_auto,
2.       lo_taxi   TYPE REF TO zcl_test_auto,
3.       lo_bus    TYPE REF TO zcl_test_auto,

GeSHi ©

Wichtig ist nur, dass dann anschließend bei der Erzeugung der Instanzen explizit der gewünschte Typ mitgegeben wird (also den dynamischen Typ entsprechend der mehrheitlichen Verwendung angebe):

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.   " AUTO-Objekt erzeugen
2.   CREATE OBJECT lo_auto " Auto
3.     TYPE zcl_test_auto
4.     EXPORTING
5.       iv_farbe = 'ROT'.
6.  
7.   " TAXI-Objekt erzeugen
8.   CREATE OBJECT lo_taxi " Taxi
9.     TYPE zcl_test_taxi
10.     EXPORTING
11.       iv_farbe = 'GELB'.
12.  
13.   " BUS-Objekt erzeugen
14.   CREATE OBJECT lo_bus " Bus
15.     TYPE zcl_test_bus
16.     EXPORTING
17.       iv_farbe = 'BLAU'.

GeSHi ©

Anschließend sind die Casts in beide Richtungen möglich.

Ehrlich gesagt ist dies nicht wirklich das, was ich mir unter "Casting" vorstelle - aber in ABAP scheint es nur so zu funktionieren. -.-