IJsonArrayBuilder.AddObjectBuilder

AddObjectBuilder(Value: IJsonObjectBuilder): IJsonArrayBuilder;

AddObjectBuilder(Value: Prognoz.Platform.Interop.ForeSystem.IJsonObjectBuilder): Prognoz.Platform.Interop.ForeSystem.IJsonArrayBuilder;

Sub UserProc;
Var
    JsonArray: IJsonArrayBuilder;
    NewJSON: IJsonObjectBuilder;
    Doc: IJsonDocument;
Begin
    JsonArray := New JsonArrayBuilder.Create;
    // Создание JSON-структуры
    NewJSON := New JsonObjectBuilder.Create;
    NewJSON.AddString("name", "Product 1");
    NewJSON.AddInteger("price", 100);
    NewJSON.AddDouble("weight", 1);
    JsonArray.AddObjectBuilder(NewJSON);
    NewJSON := New JsonObjectBuilder.Create;
    NewJSON.AddString("name", "Product 2");
    NewJSON.AddInteger("price", 200);
    NewJSON.AddDouble("weight", 1.2);
    JsonArray.AddObjectBuilder(NewJSON);
    NewJSON := New JsonObjectBuilder.Create;
    NewJSON.AddArrayBuilder("products", JsonArray);
    // Сохранение
    Doc := New JsonDocument.Create;
    Doc.Root := NewJSON.Build;
    Doc.WriteToFile("d:\Work\Json\products.json");
End Sub UserProc;

Imports Prognoz.Platform.Interop.ForeSystem;

Sub UserProc();
Var
    JsonArray: JsonArrayBuilder = New JsonArrayBuilderClass();
    NewJSON: JsonObjectBuilder = New JsonObjectBuilderClass();
    Doc: IJsonDocument = New JsonDocumentClass();
Begin
    // Создание JSON-структуры
    NewJSON.AddString("name", "Product 1");
    NewJSON.AddInteger("price", 100);
    NewJSON.AddDouble("weight", 1);
    JsonArray.AddObjectBuilder(NewJSON);
    NewJSON := New JsonObjectBuilderClass();
    NewJSON.AddString("name", "Product 2");
    NewJSON.AddInteger("price", 200);
    NewJSON.AddDouble("weight", 1.2);
    JsonArray.AddObjectBuilder(NewJSON);
    NewJSON := New JsonObjectBuilderClass();
    NewJSON.AddArrayBuilder("products", JsonArray);
    // Сохранение
    Doc.Root := NewJSON.Build();
    Doc.WriteToFile("d:\Work\Json\products.json", JsonFormatOptions.jfoDefault);
End Sub;