Eigenes Objekt kopieren

[Jakane]

Hallo liebe Delphi-Helfer

Ich nutze für mein Projekt verschiedene selbst gebaute Objekte.
z. B.:

Code:

  TAufgabe = class(TObjekt)
  private
  public
    Projekt: TProjekt;
    Anforderung: String;
    VonMitarbeiter: TMitarbeiter;
    FuerMitarbeiter: TMitarbeiter;
    Mitarbeitergruppe: TMitarbeitergruppe;
    Hauptaufgabennummer: Integer;
    Taetigkeitstyp: TTaetigkeitstyp;
    Status: TAufgabenstatus;
    Allgemein: Boolean;
    Gesehen: Boolean;
    Prioritaet: Integer;
  end;

Gibt es eine einfache Möglichkeit so ein Objekt 1:1 zu kopieren, ohne das ich Funktionen schreiben um jeden einzelnen Wert zu übergeben?

Code:

procedure TAufgabeBearbeitenF.FormShow(Sender: TObject);
begin
  // Aufgabe laden
  AufgabeAlt := TAufgabe.LoadFromDatabase(Aufgabennummer, PV.Mitarbeiter.Nummer);
  AufgabeNeu := AufgabeAlt;
  AufgabeAlt.Version := '123';
  AufgabeNeu.Version := '456';
  ShowMessage(AufgabeAlt.Version + ' ' + AufgabeNeu.Version);

Als ShowMessage kommt so leider "456 456" raus statt "123 456"

[mkinzler]

Ja, über die Methode Assign.

[Jakane]

Diese Objekte beherschen Assign nicht.
Hatte ich schon versucht

[Zacherl]

Zitat von Jakane:

Gibt es eine einfache Möglichkeit so ein Objekt 1:1 zu kopieren, ohne das ich Funktionen schreiben um jeden einzelnen Wert zu übergeben?

Zitat von mkinzler:

Ja, über die Methode Assign.

Selbst wenn Assign unterstüzt wird (dafür einfach von TPersistent ableiten), muss man AssignTo trotzdem per Hand implementieren, was der TE scheinbar vermeiden möchte.

Eine sowohl performante, als auch 100% zuverlässige generische Möglichkeit habe ich bis heute auch nicht gefunden. Manchmal funktioniert das einfache Kopieren des Speichers (aber nur dann, wenn keine Strings, Objektreferenzen, etc. verwendet werden). Auch möglich wäre es die einzelnen Felder per RTTI zu kopieren. In meinem Falle war das aber auch nicht das gelbe vom Ei.

[mkinzler]

Zitat:

Selbst wenn Assign unterstüzt wird (dafür einfach von TPersistent ableiten), muss man AssignTo trotzdem per Hand implementieren, was der TE scheinbar vermeiden möchte.

Zitat:

Gibt es eine einfache Möglichkeit so ein Objekt 1:1 zu kopieren, ohne das ich Funktionen schreiben um jeden einzelnen Wert zu übergeben?

Es muss ja nicht jeder einzelne Wert übergeben werden. Man muss der Klasse natürliche eine individuell implementierte Methode verpassen.

[Jakane]

Ja, um jeden Wert manuell zu kopieren brauch ich kein Assign.
Hab dann aber unzähliche Zeilen Code ...

Code:

Wert := pcObjekt.Wert

Aufwändig...

[himitsu]

Published Property kann man auch per TWriter und TReader kopieren.

Aber was spricht gegen ein manuelles Überschreiben von AssignTo oder Assign? Das ist schließlich das "Standard"-Vorgehen.
(innerhalb des selben Objektes fast egal wo ... von einer Klasse in eine andere, da kommt es drauf an wer von Beiden kopieren soll)
Es ist erstmal egal, ob es manuell definiert ist ... der Vorteil ist eine "standardisierte" und zentralisierte Methode und dass das Kopieren darin nur einmal implementiert ist, anstatt überall immer jeden Wert einzeln kopieren zu müssen.

Und wenn nicht von TPersistent abgeleitet, dann hindert niemand einen, dass man sich selber eine Assign-Methode implementiert.

[Der schöne Günther]

Zuallererst musst du dir klar werden ob du eine flache oder tiefe Kopie erwartest. Sprich: Wenn du eine Kopie von TAufgabe erstellst - Ist der darin enthaltene VonMitarbeiter eine Referenz auf die gleiche Instanz wie im Original oder ein komplett neuer TMitarbeiter ?
https://de.wikipedia.org/wiki/Objektkopie

Nachdem du wahrscheinlich zum Schluss kommst dass du eine flache Kopie möchtest kannst du im Internet schauen und enttäuscht feststellen dass Delphi im Standardumfang hier einem (im Gegensatz zu anderen Tools) leider keine Arbeit abnimmt.

[Jakane]

Zitat von Der schöne Günther:

Nachdem du wahrscheinlich zum Schluss kommst dass du eine flache Kopie möchtest kannst du im Internet schauen und enttäuscht feststellen dass Delphi im Standardumfang hier einem (im Gegensatz zu anderen Tools) leider keine Arbeit abnimmt.

Leider irrst du dich da, ich will auch das TMitarbeiter kopiert wird.

[Der schöne Günther]

Hätte ich jetzt nicht erwartet, aber du weißt das natürlich besser. Also willst du eine tiefe Kopie.

Hier kann dir Delphi immerhin über Umwege etwas abnehmen indem du dein Objekt erst "serialisiert" und von dieser Serialisierung dann wieder zurück eine neue Instanz erstellst.

Das hängt nun aber auch davon ab welche Delphi-Version du benutzt, wenn ich nicht vollkommen falsch liege gibt es das erst ab der Enterprise-Version (nicht Pro). Oder?