Object kopieren

[Hobbycoder]

Zitat von Aviator:

Wenn das wirklich so viel Arbeit macht, dann solltest du dir evtl. auch Gedanken darüber machen, deinen Code etwas zu refactorn. Mache aus deinem großen Object mehrere sinnvoll zueinandergehörende kleinere Objects. Da ist dann zwar trotzdem einmal die Arbeit fällig für jedes Object eine Assign() Methode zu schreiben, aber der Gesamtüberblick wird dadurch wesentlich besser. Ich vermute ja mal, dass wir hier nicht nur von 20 Properties reden. Weil das wäre eine Anzahl für die es nicht so aufwendig wäre, eine Assign Methode zu schreiben.

Naja, viel Arbeit ist ja relativ
Sind halt einige Listen, die ihrerseits dann auch wieder einiges an Objecten beinhalten.

Ich habe schon damit angefangen, das jetzt mit Assign zu machen.
Mit Günther's Antwort hatte sich die Sache für mich im Grund bereits erledigt.

War nur kurz mal außer Haus, deswegen konnte ich das nicht vorher Anworten.

[haentschman]

Moin...
...einen habe ich noch.

Delphi-Quellcode:

uses
  Data.DBXJSON, Data.DBXJSONReflect; // ohne Gewähr
...
function TBlubb.ObjectCopy(aValue: TObject): TObject;
var
  MarshalObj: TJSONMarshal;
  UnMarshalObj: TJSONUnMarshal;
  JSONValue: TJSONValue;
begin
  Result := nil;
  MarshalObj := TJSONMarshal.Create;
  try
    UnMarshalObj := TJSONUnMarshal.Create;
    try
      JSONValue := MarshalObj.Marshal(aValue);
      try
        if Assigned(JSONValue) then
          Result := UnMarshalObj.Unmarshal(JSONValue);
      finally
        JSONValue.Free;
      end;
    finally
      UnMarshalObj.Free;
    end;
  finally
    MarshalObj.Free;
  end;
end;

Damit kopiere ich ein komplexes Objekt, u.a. mit generischen Listen und deren Inhalt, in eine neue Instanz. Im Prinzip ist es eine Umwandlung in JSON und wieder zurück. Für meine Zwecke reicht es.