Kopie der Werte, nicht der Referenz. Objekt klonen?
4 Beiträge
•
Seite 1 von 1
4 Beiträge
Seite 1 von 1
Hey,
wenn ich ein Objekt klone, wird die entsprechende Referenz ja nicht kopiert. Ich bin davon ausgeganben, dass wenn ich objekt1 klone und dem objekt2 zuweise, Änderungen an einem Objekt sich nicht auf das andere Objekt auswirken.
Aber das scheint nicht zu stimmen. Wenn ich nun object1 Werte zuweise, hat die object2 auch. Warum? Wie kann ich das verhindern?
Im Grunde möchte ich nur alle Werte des ersten Objekts in das zweite Objekt kopieren. Im ersten Objekt möchte ich dann Änderungen vornehmen. Wenn ich die Änderungen verwerfe soll object2 dazu da sein, die Werte von object1 wiederherzustellen.
Wie bekomme ich das hin?
Danke, Ciao!
wenn ich ein Objekt klone, wird die entsprechende Referenz ja nicht kopiert. Ich bin davon ausgeganben, dass wenn ich objekt1 klone und dem objekt2 zuweise, Änderungen an einem Objekt sich nicht auf das andere Objekt auswirken.
Code: Alles auswählen.
CREATE OBJECT object1.
object2 ?= object1->if_os_clone~clone( ).
Im Grunde möchte ich nur alle Werte des ersten Objekts in das zweite Objekt kopieren. Im ersten Objekt möchte ich dann Änderungen vornehmen. Wenn ich die Änderungen verwerfe soll object2 dazu da sein, die Werte von object1 wiederherzustellen.
Wie bekomme ich das hin?
Danke, Ciao!
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Folgendes Beispiel widerlegt deine Behauptung:
Da muss ein anderer Fehler sein, denke ich...
Code: Alles auswählen.
REPORT.
*----------------------------------------------------------------------*
CLASS z1 DEFINITION .
PUBLIC SECTION.
INTERFACES if_os_clone.
DATA test TYPE c LENGTH 2.
ENDCLASS. "z1 DEFINITION
*----------------------------------------------------------------------*
CLASS z1 IMPLEMENTATION.
METHOD if_os_clone~clone.
SYSTEM-CALL OBJMGR CLONE me TO result.
ENDMETHOD. "IF_OS_CLONE~CLONE
ENDCLASS. "z1 IMPLEMENTATION
DATA r1 TYPE REF TO z1.
DATA r2 TYPE REF TO z1.
START-OF-SELECTION.
CREATE OBJECT r1.
r2 ?= r1->if_os_clone~clone( ).
r1->test = 'A'.
WRITE: / 'r1->test:', r1->test COLOR COL_GROUP.
WRITE: / 'r2->test:', r2->test COLOR COL_GROUP.Hab meinen Fehler gefunden. Die Referenz verfügt über eine Tabelle mit weiteren Referenzen einer anderen Klasse. Ich muss daher nicht nur das eine Objekt klonen, sondern auch die, welche sich in der internen Tabelle befinden.
Und da kommt auch schon ein neues Problem. Ich loope über meine interne Tabelle und klone eben jedes einzelne Objekt der Klasse class2. Diese füge ich nun an eine neue interne Tabelle an, die ich meinem Klon der Klasse class1 übergeben möchte. Allerdings bekomme ich das nicht hin mit der Typisierung zur Laufzeit. Klasse1 ist vom Typ Object zur Laufzeit, daher kann ich nicht auf die interne Tabelle der Klasse1 zugreifen. Ich hab versucht ein CASTING mittels
durchzuführen, damit result über die Methoden und Attribute der Klasse class1 verfügt.
Als Meldung bekomme ich
Und da kommt auch schon ein neues Problem. Ich loope über meine interne Tabelle und klone eben jedes einzelne Objekt der Klasse class2. Diese füge ich nun an eine neue interne Tabelle an, die ich meinem Klon der Klasse class1 übergeben möchte. Allerdings bekomme ich das nicht hin mit der Typisierung zur Laufzeit. Klasse1 ist vom Typ Object zur Laufzeit, daher kann ich nicht auf die interne Tabelle der Klasse1 zugreifen. Ich hab versucht ein CASTING mittels
Code: Alles auswählen.
FIELD-SYMBOLS <fs> TYPE REF TO class1.
ASSIGN result TO <fs> CASTING.
Als Meldung bekomme ich
Wie kann man das lösen?"<FS>" und "RESULT" enthalten Referenzen oder interne Tabellen oder
Strings. Bei der aktuellen Anweisung müssen diese an der gleichen
Offset-Position stehen und kompatibel sein.
Seite 1 von 1
Vergleichbare Themen
10
Antw.
Antw.
4882
Views
Views
Objekt mit Referenz als Attribut auf DB speichern?
von dejo79 » 08.02.2017 17:00 • Verfasst in ABAP Objects®
von dejo79 » 08.02.2017 17:00 • Verfasst in ABAP Objects®
0
Antw.
Antw.
1269
Views
Views
Kopie Smartforms ( wie weiss man das jetzt die Kopie druckt)
von Kleenmex » 21.01.2008 09:08 • Verfasst in Basis
von Kleenmex » 21.01.2008 09:08 • Verfasst in Basis
3
Antw.
Antw.
3484
Views
Views
Referenz-Tabelle UND Referenz-Feld f.BRGEW und NTGEW
von bohne » 22.02.2007 10:52 • Verfasst in ABAP® für Anfänger
von bohne » 22.02.2007 10:52 • Verfasst in ABAP® für Anfänger
2
Antw.
Antw.
6563
Views
Views
3
Antw.
Antw.
15147
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 4 Stunden von DeathAndPain 4 / 564
vor 4 Stunden von DeathAndPain 4 / 564
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 4 Stunden von DeathAndPain 4 / 564
vor 4 Stunden von DeathAndPain 4 / 564