IJsonArrayBuilder.AddObjectBuilder

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

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.RootElement := NewJSON.Build;
    Doc.WriteToFile("d:\Work\Json\products.json");
End Sub UserProc;