IJsonObjectBuilder.AddObjectBuilder

AddObjectBuilder(Property_: String; Value: IJsonObjectBuilder): IJsonObjectBuilder;

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

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

Imports Prognoz.Platform.Interop.ForeSystem;

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