Json-Objekte: Merge

[Uwe Raabe]

Ist jetzt nicht so viel Aufwand:

Delphi-Quellcode:

uses
  System.JSON;

function MergeJsonPreferB(A, B: TJSONObject): TJSONObject;
var
  pair: TJSONPair;
begin
  Result := TJSONObject(B.Clone);
  for pair in A do
    if Result.Get(pair.JsonString.Value) = nil then
      Result.AddPair(TJSONPair(pair.Clone));
end;