AddArray(Property_: String; Value: Array): IJsonObjectBuilder;
Property_. Имя элемента;
Value. Массив, который будет являться значением элемента.
Метод AddArray добавляет элемент с массивом значений.
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.RootElement := NewJSON.Build;
Doc.WriteToFile("d:\Work\Json\testfile.json");
End Sub UserProc;
При выполнении примера будет создана новая JSON-структура. В структуру различными способами будут добавлены два элемента, значениями которых являются массивы элементов. Структура будет сохранена в указанный файл.
См. также: