TDictionary speichern

[haentschman]

[Ohne Gewähr]
Aus dem Dictionary einen JSON String machen, speichern, einlesen, wieder ein TDictionary draus machen.

Lesen u.a.:
Marshalling: https://www.delphipraxis.net/dp_refe...20&lib=embtx10
https://www.delphipraxis.net/182309-...n-strings.html
https://community.idera.com/develope...e-line-of-code

[Rollo62]

Ja, ein JSON-Array fände ich auch super.

Ansonsten könntest du die Strings in TBytes umwandeln, und per ByteToHEX-Encoding 1:1 speichern, oder mit Base64 kodieren, wenn dir das sicherer erscheint.
Ich denke aber das es womöglich den Aufwand nicht Wert ist.
Deshalb +1 für JSON

[Schokohase]

Zitat von Rollo62:

Ja, ein JSON-Array fände ich auch super.

Ein JSON-Object, denn das verhält sich schon wie ein Dictionary, denn die Eigenschaften in einem JSON-Object müssen eindeutig sein.

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

[TiGü]

Zitat von Rollo62:

Ja, ein JSON-Array fände ich auch super.

Ansonsten könntest du die Strings in TBytes umwandeln, und per ByteToHEX-Encoding 1:1 speichern, oder mit Base64 kodieren, wenn dir das sicherer erscheint.
Ich denke aber das es womöglich den Aufwand nicht Wert ist.
Deshalb +1 für JSON

Oder: http://docwiki.embarcadero.com/RADStudio/Rio/en/BSON