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。什么？）

如果您有一个来自 DBXJSON 的数组，那么它是一个TJSONArray。称其为Get方法获取数组的一个元素。

var
  Value: TJSONValue;

Value := jArray.Get(0);

您还可以使用以下命令遍历整个数组for loop:

for Value in jArray do

但如果你检查Size属性并得到 6226004 而不是 3，这表明这里还有其他问题。我的猜测是你认为的是TJSONArray真的不是那种类型。使用as进行检查类型转换：

jArray := jPair.JsonValue as TJSONArray;

你会得到一个EInvalidCast如果失败则例外。