IJsonDocument.WriteToString

WriteToString([Options: JsonFormatOptions =0]);

WriteToString(Options: Prognoz.Platform.Interop.ForeSystem.JsonFormatOptions);

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);
    // Get string view
    Doc := New JsonDocument.Create;
    Doc.Root := NewJSON.Build;
    Return Doc.WriteToString;
End Function CreateJson;

Imports Prognoz.Platform.Interop.ForeSystem;

Function CreateJson(): String;
Var
    NewJSON: IJsonObjectBuilder = New JsonObjectBuilderClass();
    Doc: IJsonDocument = New JsonDocumentClass();
Begin
    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);
    // Get string view
    Doc.Root := NewJSON.Build();
    Return Doc.WriteToString(JsonFormatOptions.jfoDefault);
End Function;