IJsonDocument.WriteToString

Копировать пример

Function CreateJson: String;
Var
    NewJSON: IJsonObjectBuilder;
    Doc: IJsonDocument;
Begin
    NewJSON := New JsonObjectBuilder.Create;
    NewJSON.AddBoolean("Bool", True);
    NewJSON.AddDouble("Double", 3.14);
    NewJSON.AddInteger("Integer", 100);
    NewJSON.AddNull("Null");
    NewJSON.AddString("String", "Test JSON");
    NewJSON.AddBoolean("Bool", True);
    // Получение строкового представления
    Doc := New JsonDocument.Create;
    Doc.RootElement := NewJSON.Build;
    Return Doc.WriteToString;
End Function CreateJson;