IJsonObjectBuilder.AddArray

AddArray(Property_: String; Value: Array): IJsonObjectBuilder;

AddArray(Property_: String; Value: Array): IPrognoz.Platform.Interop.ForeSystem.IJsonObjectBuilder;

Sub UserProc;
Var
    NewJSON: IJsonObjectBuilder;
    VarArray: Array;
    JsonArray: IJsonArrayBuilder;
    Doc: IJsonDocument;
Begin
    NewJSON := New JsonObjectBuilder.Create;
    // Первый массив
    VarArray := New Variant[2];
    VarArray[0] := Integer.MaxValue;
    VarArray[1] := Double.MaxValue;
    NewJSON.AddArray("First Array", VarArray);
    // Второй массив
    JsonArray := New JsonArrayBuilder.Create;
    JsonArray.AddInteger(Integer.MaxValue);
    JsonArray.AddDouble(Double.MaxValue);
    NewJSON.AddArrayBuilder("Two Array", JsonArray);
    // Сохраняем полученный JSON
    Doc := New JsonDocument.Create;
    Doc.Root := NewJSON.Build;
    Doc.WriteToFile("d:\Work\Json\testfile.json");
End Sub UserProc;

Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.PiLibNet.Utils;

Sub UserProc();
Var
    NewJSON: JsonObjectBuilder = ComCreator.Instance.CoCreate<JsonObjectBuilderClass>();
    VarArray: Array;
    JsonArray: JsonArrayBuilder = ComCreator.Instance.CoCreate<JsonArrayBuilderClass>();
    Doc: IJsonDocument = ComCreator.Instance.CoCreate<JsonDocument>();
Begin
    // Первый массив
    VarArray := New Object[2];
    VarArray[0] := Integer.MaxValue;
    VarArray[1] := Double.MaxValue;
    NewJSON.AddArray("First Array", VarArray);
    // Второй массив
    JsonArray.AddInteger(Integer.MaxValue);
    JsonArray.AddDouble(Double.MaxValue);
    NewJSON.AddArrayBuilder("Two Array", JsonArray);
    // Сохраняем полученный JSON
    Doc.Root := NewJSON.Build();
    Doc.WriteToFile("d:\Work\Json\testfile.json", JsonFormatOptions.jfoDefault);
End Sub;