Delphi: доступ к объектам JSON в массиве JSON

У меня есть объект JSON, назовем его jObject, который выглядит так:

{
  "id": 0,
  "data": "[{DAT_INCL: \"08/03/2012 10:07:08\", NUM_ORDE: 1, NUM_ATND: 1, NUM_ACAO: 2, NUM_RESU: 3},
            {DAT_INCL: \"08/03/2012 10:07:09\", NUM_ORDE: 2, NUM_ATND: 1, NUM_ACAO: 4, NUM_RESU: 5},
            {DAT_INCL: \"08/03/2012 10:07:09\", NUM_ORDE: 3, NUM_ATND: 1, NUM_ACAO: 8, NUM_RESU: NULL}]"
}

Как видите, он содержит две пары, одна из которых в данном случае представляет собой массив с тремя объектами (количество объектов динамическое ) с несколькими «ключ: значения» (они не различаются, всегда являются одними и теми же 5 полями), которые я хочу вставить в базу данных SQL, «ключ» — столбец, «значение» — поле. Вопрос в том, как мне получить доступ к каждому объекту по отдельности?

С точки зрения кода я извлек пару, содержащую этот массив, поместив ее в jPair

jPair := OriginalObject.Get(1); 

, а затем захватил массив

jArray:= TJSONArray(jPair.JsonValue);

(Кроме того, в качестве бонуса, когда я оцениваю jArray.Size, результат 6226004. Что?)

7
задан bpromas 9 March 2012 в 13:39
поделиться