Zugriffsverletzung beim TObjectDictionary.Add

[Incocnito]

Objektkopie?
Hat das Objekt ein "Assign", oder wie genau?

Delphi-Quellcode:

StringList1 := TStringList.Create();
StringList2 := StringList1;
StringList1.Free();
StringList2.Add('Something'); // <- Alles Kaputt, so geht das natürlich nicht!

Für den höchst unwahrscheinlichen Fall, dass du das meintest.

[haentschman]

Zitat:

Hat das Objekt ein "Assign", oder wie genau?

Normal macht man das klassisch mit Assign. Meine "Datenobjekte" haben auch Listen mit Objekten. Deshalb benutze ich gern folgendes:

Delphi-Quellcode:

class function TToolsJson.ObjectCopyJson(Value: TObject): TObject;
var
  MarshalObj: TJSONMarshal;
  UnMarshalObj: TJSONUnMarshal;
  JSONValue: TJSONValue;
begin
  Result := nil;
  MarshalObj := TJSONMarshal.Create;
  try
    UnMarshalObj := TJSONUnMarshal.Create;
    try
      JSONValue := MarshalObj.Marshal(Value);
      try
        if Assigned(JSONValue) then
          Result := UnMarshalObj.Unmarshal(JSONValue);
      finally
        JSONValue.Free;
      end;
    finally
      UnMarshalObj.Free;
    end;
  finally
    MarshalObj.Free;
  end;
end;

...nur leider funktioniert das nicht immer. Wie man an dem o.g. Fehler erkennen kann, werden Dictioniaries nicht wieder richtig erzeugt. Ich habe deshalb wieder nur auf Liste umgestellt.

[Der schöne Günther]

Zitat von haentschman:

Moin...

Zitat:

Eine Idee habe ich noch...aber erst morgen früh.

...Fazit: Eine Objektkopie mit Maschal/UnMarschal nimmt den Comparer nicht mit.

Ja, leider.
Siehe auch hier:
https://stackoverflow.com/a/49636496/2298252

[Incocnito]

Sowas geht auch nur ansatzweise?
Ich hätte gesagt, da es sich ja nur um den Typen "TObject" handelt,
weiß Delphi eh nicht, was zu tun ist und stellt nur irgendeinen Mist her.
Ich bin total verwirrt! Das ist für mich schon quasi EDV-Magie!

[Uwe Raabe]

Zitat von Incocnito:

Das ist für mich schon quasi EDV-Magie!

Das dazugehörige Zauberwort heißt RTTI.

[haentschman]

Moin...

Zitat:

Ich hätte gesagt, da es sich ja nur um den Typen "TObject" handelt,

Du bekommst schon das raus was du reinsteckst. Du mußt nur das Ergebnis TObject auf deinen Typ casten.
BlubbCopy := TBlubb(TTools.ObjectCopy(Blubb));

[generic]

Zitat von haentschman:

Bitteschön...
FRoleRightDict := TUserRoleRightDict.Create([doOwnsValues]); // gleicher Fehler

Wenn ich mir die Exception und den Stacktrace anschaue, dann glaube ich eher das es am KEY liegt.
Ähnlich wie bei den Values, kann auch der KEY owned werden.

[haentschman]

Zitat:

Wenn ich mir die Exception und den Stacktrace anschaue, dann glaube ich eher das es am KEY liegt.

Dem widerspricht die fast tägliche Benutzung / Implementierung eines Dictionaries. Die diesem Falle war aber eine Objektkopie des Datenobjektes mit enthaltenem Dictionary verantwortlich. Mit der Kopie ist der FComparer intern nicht instanziert worden.

Danke...

[Uwe Raabe]

Zitat von haentschman:

diesem Falle war aber eine Objektkopie des Datenobjektes mit enthaltenem Dictionary verantwortlich. Mit der Kopie ist der FComparer intern nicht instanziert worden.

Das liegt vermutlich daran, daß nicht der gewünschte Construktor von TDictionary aufgerufen wurde, sondern der von TObject, weil UnMarshal nach einem parameterlosen Constructor sucht. Und Interface-Felder werden offenbar nicht serialisiert.

[haentschman]

Zitat:

Und Interface-Felder werden offenbar nicht serialisiert.

...genau.