AsXMLString

[NickNevzorov]

Thanks for sharing!

I need convert JSON to XML. Now it simply:

  try
    json := TdJSON.parse(Value);
    XML.SetAsString(json.asXMLString('Root', 0));
  finally
    json.Free;
  end;