TDictionary speichern

[Uwe Raabe]

Fertig gibt es da wohl noch nichts, aber man kann das mit überschaubarem Aufwand selbst machen:

Delphi-Quellcode:

procedure Test;
type
  TDict = TDictionary<string,string>;
  TDictPair = TPair<string,string>;
  TDictArray = TArray<TDictPair>;
var
  arr: TDictArray;
  dict: TDict;
  pair: TDictPair;
  theJSONString: string;
  ser: TJsonSerializer;
begin
  dict := TDict.Create;
  try
    dict.Add('Hallo', 'Welt');
    dict.Add('RAD', 'Studio');
    arr := dict.ToArray;
    ser := TJsonSerializer.Create;
    try
      theJSONString := ser.Serialize(arr);
    finally
      ser.Free;
    end;
  finally
    dict.Free;
  end;

  ser := TJsonSerializer.Create;
  try
    arr := ser.Deserialize<TDictArray>(theJSONString);
  finally
    ser.Free;
  end;
  dict := TDict.Create;
  try
    for pair in arr do begin
      dict.Add(pair.Key, pair.Value);
    end;

    Assert(dict['Hallo'] = 'Welt');
    Assert(dict['RAD'] = 'Studio');
  finally
    dict.Free;
  end;
end;

[skoschke]

Danke,

das wollte ich eben mal ausprobieren, aber das scheint es in Berlin 10.1 noch nicht zu geben

Ciao
Stefan

[TiGü]

Ja, das kam erst in Tokyo hinzu.
https://community.embarcadero.com/de...son-converters

Dann nimm doch meine zu Fuss-Variante?!

[Rollo62]

Hallo Schokohase,
Meinst du das man ein Dictionary schon mit JSON Hausmitteln, ala JsonMarshaler, in ein JsonObject serialisieren kann ?
Wäre ja interessant, habe ich noch nicht ausprobiert.

[Schokohase]

Ja, nee, so nicht ...

Aber die Konvertierung ist relativ simpel:

Delphi-Quellcode:

uses
  System.Generics.Collections,
  System.JSON;

function DictionaryToJsonObject(const ADict: TDictionary<string, string>): TJSONObject;
var
  lPair: TPair<string, string>;
begin
  Result := TJSONObject.Create();
  for lPair in ADict do
  begin
    Result.AddPair(lPair.Key, lPair.Value);
  end;
end;

function JsonToDictionary(const AJson:TJsonObject) : TDictionary<string,string>;
var
  lPair: TJSONPair;
begin
  Result := TDictionary<string,string>.Create();
  for lPair in AJson do
  begin
    Result.Add(lPair.JsonString.Value,lPair.JsonValue.Value);
  end;
end;

[Rollo62]

Ok, dankesehr für die Klärung.
So in der Art meinte ich das auch, das nenne ich "Array" weil da mehrere Wertepaare hintereinander drin sind.

[sko1]

Danke Schokohase für das Beispiel, mal sehen ob das hier klappt...

Ciao
Stefan