Delphi：访问 JSON 数组中的 JSON 对象

JS

使用Delphi编程语言访问JSON数组中的JSON对象是一项非常常见的任务。在处理JSON数据时，我们经常会遇到包含多个JSON对象的JSON数组。本文将介绍如何使用Delphi编写代码来访问JSON数组中的JSON对象，并给出一个实际案例。

访问JSON数组中的JSON对象

要访问JSON数组中的JSON对象，我们首先需要使用Delphi的JSON处理库。Delphi提供了TJSONObject和TJSONArray类，这两个类可以帮助我们处理JSON数据。其中，TJSONArray表示一个JSON数组，TJSONObject表示一个JSON对象。

在我们的案例中，假设有一个包含学生信息的JSON数组。每个学生又由一个JSON对象表示，其中包含姓名、年龄和成绩等属性。我们的目标是遍历这个JSON数组，并访问每个学生的属性。

下面是一个简单的示例代码：

delphi
var
  Students: TJSONArray;
  Student: TJSONObject;
  i: Integer;
begin
  // 假设我们已经从某个地方获取到了包含学生信息的JSON数组
  Students := TJSONArray.Create;
  Students.Parse('[{"name":"Alice","age":18,"score":90},{"name":"Bob","age":19,"score":85}]');
  try
    // 遍历JSON数组
    for i := 0 to Students.Count - 1 do
    begin
      // 获取当前学生的JSON对象
      Student := Students.Items[i] as TJSONObject;
      // 访问学生的属性
      ShowMessage('姓名：' + Student.GetValue('name').Value);
      ShowMessage('年龄：' + Student.GetValue('age').Value);
      ShowMessage('成绩：' + Student.GetValue('score').Value);
    end;
  finally
    Students.Free;
  end;
end;

在上面的代码中，我们首先创建了一个TJSONArray对象Students，并使用Parse方法将包含学生信息的JSON字符串解析为JSON数组。然后，我们使用for循环遍历JSON数组，通过Items属性获取当前学生的TJSONObject对象。最后，我们使用GetValue方法获取学生的属性值，并进行相应的处理。

这段代码可以输出每个学生的姓名、年龄和成绩。你可以根据实际需求进行修改，例如将学生信息存储到一个列表中，或者进行其他的业务逻辑处理。

通过使用Delphi的JSON处理库，我们可以轻松地访问JSON数组中的JSON对象。本文介绍了如何使用TJSONArray和TJSONObject类来处理JSON数据，并给出了一个实际案例。希望这篇文章对你在Delphi中处理JSON数据有所帮助。如果你有任何问题或建议，请随时留言。