TDictionary to JSON und zurück

[himitsu]

Steht denn im JSON-Text auch der Typname dieser Objekte mit drin?

[Yaso]

Als JSON String kommt mit dem Code aus dem Beitrag 1 folgender String heraus, welchen ich eigentlich auch wieder einlese und zurückwandeln möchte:

Code:

{
   "items": [[-1,
   "",
   null],
   [-1,
   "",
   null],
   [1975215994,
   "asd",
   {
      "originalFilename": "abc",
      "lastModified": "2015-06-10T13:02:31.491Z",
      "anzahl": 3,
      "strings": {
         "list": [["File1",
         null],
         ["File2",
         null],
         ["",
         null],
         ["",
         null]],
         "count": 2,
         "capacity": 4,
         "sorted": false,
         "duplicates": "dupIgnore",
         "caseSensitive": false,
         "ownsObject": false,
         "encoding": null,
         "defaultEncoding": {
            "codePage": 1252,
            "mBToWCharFlags": 0,
            "wCharToMBFlags": 0,
            "isSingleByte": true,
            "maxCharSize": 1
         },
         "delimiter": "",
         "lineBreak": "",
         "quoteChar": "",
         "nameValueSeparator": "",
         "strictDelimiter": false,
         "updateCount": 0,
         "writeBOM": true
      }
   }],
   [996913175,
   "asd2",
   {
      "originalFilename": "abc",
      "lastModified": "2015-06-10T13:02:31.491Z",
      "anzahl": 3,
      "strings": {
         "list": [["File1",
         null],
         ["File2",
         null],
         ["",
         null],
         ["",
         null]],
         "count": 2,
         "capacity": 4,
         "sorted": false,
         "duplicates": "dupIgnore",
         "caseSensitive": false,
         "ownsObject": false,
         "encoding": null,
         "defaultEncoding": {
            "codePage": 1252,
            "mBToWCharFlags": 0,
            "wCharToMBFlags": 0,
            "isSingleByte": true,
            "maxCharSize": 1
         },
         "delimiter": "",
         "lineBreak": "",
         "quoteChar": "",
         "nameValueSeparator": "",
         "strictDelimiter": false,
         "updateCount": 0,
         "writeBOM": true
      }
   }]],
   "count": 2,
   "growThreshold": 3,
   "keyCollection": null,
   "valueCollection": null
}

Also eigentlich alles vorhanden. Der Typname meiner Klasse wird dem REST.JsonReflect übergeben, der findet es aber, so wie ich es beim debuggen sehe, nicht.

Properties? Die werden soweit ich weiss ignoriert: http://blogs.embarcadero.com/stephen...-line-of-code/ (Siehe Response)

EDIT:
Habe es mit einem Property probiert alles andere auskommentiert > genau dasselbe Ergebnis

[Yaso]

Hab nun etwas herumprobiert:

Wenn ich beim Einlesen Ein Objekt nehme, scheint es zu funktionieren:

Delphi-Quellcode:

procedure TForm8.Button2Click(Sender: TObject);
var
  Dict2 : TDictionary<string, TObject>;
begin
  Dict2 := TJson.JsonToObject<TDictionary<string, TObject>>(Memo1.Lines.Text); // Da knallts
  Dict2.Free;
end;

Da habe ich im Debugger alle Informationen drin in diesem Object, aber natürlich keine Felder.

Kann ich nun Das TObject irgendwie elegant und einfach nach TEintragClass parsen ohne selber einen Parser dafür zu schreiben?
Also sprich TDictionary<string, TObject> nach TDictionary<string, TEintragClass>