JSON - как в массиве объектов, в один из параметров добавить массив ?

Добрый день.

Помогите разобраться как в массиве объектов, в один из параметров добавить массив?


Сейчас код у меня такой:

  JSONArr := TJSONArray.Create;
  try
    FResourceCacheEdit.First;
    while not FResourceCacheEdit.Eof do
    begin
      if FResourceCacheEdit.Edited = True then
      begin
        JSONObj := TJSONObject.Create;


        JSONObj.AddPair(TJSONPair.Create(fnSCH_Name,                     'Тест 1'));         
        ...
        JSONObj.AddPair(TJSONPair.Create(fnSCH_Qualifications,            (TJSONObject.ParseJSONValue('[1,3,15]')) AS TJSONArray));

        // Сохраняем объект в массив.
        JSONArr.AddElement(JSONObj);
      end;

      FResourceCacheEdit.Next;
    end;

    Result := JSONArr.ToString;
  finally
    JSONArr.Free;
  end;

Получаю на выходе:

[  
   {  
      "Name":"Тест 1",
      
      "MainQualification":1,
,
   }
]

в "MainQualification" должно быть "[1,3,15]", а в место этого непонятно что((

Подскажите как в параметр объекта правильно засунуть массив?

JSONObj.AddPair(TJSONPair.Create('MainQualification', TJSONArray.Create().Add(1).Add(3).Add(15)));

Так?

Игорь_UUS,

странно, у меня в XE5

[{"Name":"Тест 1","Qualifications":[1,3,15]}]