IJsonObjectBuilder.AddObjectBuilder

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

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