IJsonArrayBuilder.Build

Build: IJsonArray;

Build: Prognoz.Platform.Interop.ForeSystem.IJsonArray;

Sub UserProc;
Var
    NewJSON: IJsonObjectBuilder;
    VarArray: Array;
    JsonArray, SubArray: IJsonArrayBuilder;
    Doc: IJsonDocument;
Begin
    VarArray := New Variant[2];
    VarArray[0] := Integer.MaxValue;
    VarArray[1] := Double.MaxValue;
    SubArray := New JsonArrayBuilder.Create;
    SubArray.AddString("Subelement 1");
    SubArray.AddString("Subelement 2");
    // JSON-массив
    JsonArray := New JsonArrayBuilder.Create;
    JsonArray.AddBoolean(True);
    JsonArray.AddInteger(Integer.MaxValue);
    JsonArray.AddDouble(Double.MaxValue);
    JsonArray.AddNull;
    JsonArray.AddString("Text value");
    JsonArray.AddArray(VarArray);
    JsonArray.AddArrayBuilder(SubArray);
    // Создание JSON-структуры
    NewJSON := New JsonObjectBuilder.Create;
    NewJSON.AddElement("Array", JsonArray.Build);
    // Сохраняем полученный JSON
    Doc := New JsonDocument.Create;
    Doc.Root := NewJSON.Build;
    Doc.WriteToFile("d:\Work\Json\array.json");
End Sub UserProc;

Imports Prognoz.Platform.Interop.ForeSystem;

Sub UserProc();
Var
    NewJSON: IJsonObjectBuilder = New JsonObjectBuilderClass();
    VarArray: Array;
    JsonArray, SubArray: JsonArrayBuilder = New JsonArrayBuilderClass();
    Doc: IJsonDocument = New JsonDocumentClass();
Begin
    VarArray := New Object[2];
    VarArray[0] := Integer.MaxValue;
    VarArray[1] := Double.MaxValue;
    SubArray.AddString("Subelement 1");
    SubArray.AddString("Subelement 2");
    // JSON-массив
    JsonArray.AddBoolean(True);
    JsonArray.AddInteger(Integer.MaxValue);
    JsonArray.AddDouble(Double.MaxValue);
    JsonArray.AddNull();
    JsonArray.AddString("Text value");
    JsonArray.AddArray(VarArray);
    JsonArray.AddArrayBuilder(SubArray);
    // Создание JSON-структуры
    NewJSON.AddElement("Array", JsonArray.Build());
    // Сохраняем полученный JSON
    Doc.Root := NewJSON.Build();
    Doc.WriteToFile("d:\Work\Json\array.json", JsonFormatOptions.jfoDefault);
End Sub;