Object kopieren

[Union]

Dabei ist auch immer die Frage, ob Seiteneffekte erwünscht sind. Wird z.B. über RTTI eine Property gesetzt, die einen Setter hat, so wird dieser auch ausgeführt (natürlich genauso der Getter des Quellobjekts). Sauberer ist auf jeden Fall eine TPersistent-Ableitung mit Assign() und AssignTo. In Sonderfällen kann jedoch auch ein byteweises Kopieren sinnvoller sein (eben um Seiteneffekte zu verhindern).

[Olli73]

Zitat von Union:

Dabei ist auch immer die Frage, ob Seiteneffekte erwünscht sind. Wird z.B. über RTTI eine Property gesetzt, die einen Setter hat, so wird dieser auch ausgeführt (natürlich genauso der Getter des Quellobjekts).

Mit RTTI kann man doch auch direkt auf die Felder zugreifen? (Habe damit keine praktische Erfahrung, aber habe es so verstanden.)

[himitsu]

Ja, je nach Einstellung, kann man bis hin zu Provate auf Felder, Property und Methoden zugreifen.

Die alte RTTI kennt nur Pubished .
Und TReader/TWriter speichert davon nur die Property und die vom Entwickler definierten "virtuellen" Property.
(siehe die Property Top und Left bei den NonVisual-Components ala TTimer)

[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.