Objekt kopieren... gibt es was Neues ?

[haentschman]

Hallo alle...

Ich wollte 2 getrennte Objekte (Original / geändert) um evt. den Ursprungszustand wieder herstellen zu können und das geänderte für die Validitätsprüfung.
Dabei bin ich der Hilfe von TPersistent ausgeliefert worden...

Zitat:

Mit Assign kopieren Sie die Eigenschaften und andere Attribute eines Objekts aus einem anderen.

Inzwischen habe ich viel gelesen und herausbekommen daß die Implementierung von Assign selbst erfolgen muß.

Da die Beiträge alle samt aus den Jahren 2002 - 2008 etwa stammen drängte sich die Frage auf, ob mit den Neuen Delphi´s evt. neue Techniken eingeführt wurden um eine Objektkopie zu realisieren...

Danke für Info´s

[Neutral General]

Naja mit Hilfe der RTTI lässt sich eigentlich immer was machen. Ab Delphi 2010 (?) sollte man auch die Public-Properties auslesen können glaube ich. (Du musst sie nicht mehr extra published machen).

[haentschman]

Danke für die schnelle Antwort...

Das mit der RTTI habe ich auch gelesen. Nur reichen mir die Public Properties nicht. Ich bräuchte eine vollständige Kopie.

[jaenicke]

Du könntest eventuell die dbExpress-Routinen benutzen, die auch DataSnap zum Marshalling/Unmarshalling verwendet. Ich fürchte aber, dass dir in der Professional die entsprechenden Units fehlen, da DataSnap erst in der Enterprise dabei ist.

Du kannst ja mal schauen, ob du die Units DBXJSON und DBXJSONReflect hast, dann sehen wir ggf. weiter.

[haentschman]

...die wären schon mal da.

[jaenicke]

Dann findest du im SVN hier eine passende Demo, das Repository kannst du einfach mit Delphi öffnen:
https://radstudiodemos.svn.sourcefor...rshalUnmarshal (Root wäre https://radstudiodemos.svn.sourcefor...s/RadStudio_XE)
(Außerdem hast du die Demo dann vermutlich auch schon lokal in den Samples.)

Für dich interessant sind die Knöpfe zum Marshalling und Unmarshalling.

[mjustin]

Zitat von Neutral General:

Naja mit Hilfe der RTTI lässt sich eigentlich immer was machen. Ab Delphi 2010 (?) sollte man auch die Public-Properties auslesen können glaube ich. (Du musst sie nicht mehr extra published machen).

Auch ein Zugriff auf Variablen mit "private" Sichtbarkeit ist mit Extended RTTI (ab Delphi 2010) möglich

[mjustin]

Diese Lösung ist sehr kompakt, erfordert nur Delphi 2010 und keine weiteren Bibliotheken:

http://stackoverflow.com/a/9197330/80901

Sie verwendet die neuen JSON Klassen in Delphi um das Objekt erst zu serialisieren und dann wieder in ein neues zu deserialisieren.

[jaenicke]

Genau die Lösung wird ja in der Demo oben verwendet...

[Bummi]

unter XE bekomme ich

"Exception der Klasse EInsufficientRtti mit der Meldung 'Unzureichende RTTI zur Unterstützung dieser Operation verfügbar'"

bei :

Delphi-Quellcode:

  With Button2.Clone do
    begin
      left := left + 100;
      top := top + 100;
    end;