delphi 解析json

Delphi 中解析 JSON 的方式比较多，以下是其中两种常用的方式：

1. 使用 Delphi 自带的 TJSONObject 类

通过使用 TJSONObject 类可以很方便地解析 JSON 数据。首先需要将 JSON 字符串转换为 TJSONObject 对象，然后就可以通过 TJSONObject 的方法来获取 JSON 中的数据。

示例代码：

uses
  System.JSON;

procedure ParseJson(JsonStr: string);
var
  JsonObj: TJSONObject;
  Value: TJSONValue;
  Name: string;
begin
  JsonObj := TJSONObject.ParseJSONValue(JsonStr) as TJSONObject;
  try
    for Name in JsonObj.Keys do
    begin
      Value := JsonObj.GetValue(Name);
      if Value is TJSONString then
        Writeln(Name + ': ' + TJSONString(Value).Value);
      // 处理其他类型的数据
    end;
  finally
    JsonObj.Free;
  end;
end;

2. 使用第三方库 SuperObject

SuperObject 是一个 Delphi 中解析 JSON 数据的第三方库，支持速度快、支持 Unicode 和自定义类型等特性。使用 SuperObject 可以很方便地解析 JSON 数据。

示例代码：

uses
  superobject;

procedure ParseJson(JsonStr: string);
var
  jsonObj: ISuperObject;
  Name: string;
  Value: string;
begin
  jsonObj := SO(JsonStr);
  for Name in jsonObj.AsObject.GetNames do
  begin
    Value := jsonObj.AsObject.S[Name];
    Writeln(Name + ': ' + Value);
    // 处理其他类型的数据
  end;
end;

以上是 Delphi 中解析 JSON 的两种方法，可以根据实际需求选择使用。