json - 使用 SuperObject 从 JSON 文件中提取值

Question

正如标题所示，我正在尝试使用 Delphi 7 和 SuperObject 库从结构非常简单的 JSON 文件中提取值，但我还没有找到涵盖这个最基本主题的任何示例，并希望一些大师能够提供帮助这里也许可以为我提供一些帮助。

我有一个简单的 JSON 文件(名为 test.json)，其结构如下，我想知道如何在 delphi 中加载此文件，然后从提供的信息。

我确信这是一项非常简单的任务，但正如我之前所说，我无法找到任何有关如何执行此操作的示例，并且希望获得一些帮助。

示例 JSON 文件

{
  id: 212,
  first_name: "bob",
  last_name: "smith",
  age: 25
} 

Answer 1

首先，声明对象的一个​​实例，在本例中为 ISuperObject 接口(interface)。然后，使用 TSuperObject.ParseString 甚至只是 SO 分配它来解析您的 JSON 字符串。然后，您可以使用单字母属性读取值，具体取决于您正在读取的值的类型...

var
  O: ISuperObject;
  ID, Age: Integer;
  FirstName, LastName: String;
begin
  O:= SO(MyJsonString);
  ID:= O.I['id'];
  FirstName:= O.S['first_name'];
  LastName:= O.S['last_name'];
  Age:= O.I['age'];
end;

但请记住，Stack Overflow 上的情况通常不会这样工作。我回答的唯一原因是因为它又快又简单，而且因为你看起来是新来的。有大量关于如何使用 SuperObject 的资源；在您随库下载的演示中、在 Google 上以及 Stack Overflow 中。