delphi7 JSON

### 解决方案

#### 使用第三方库 SuperObject 处理 JSON 数据

由于 Delphi 7 发布较早，在其标准库中并未提供原生支持 JSON 的组件。因此，建议采用成熟的第三方库来实现这一功能。SuperObject 是一款广泛应用于 Delphi 社区中的轻量级 JSON 库[^1]。

#### 安装 SuperObject

可以从 GitHub 或其他资源网站下载最新版本的 SuperObject 源码文件并将其加入到项目工程路径下即可完成安装操作[^2]。

#### 示例代码：解析 JSON 字符串

下面展示一段简单的例子用于说明怎样利用 SuperObject 来读取 JSON 文本：

uses
  superobject;

procedure TForm1.ButtonParseClick(Sender: TObject);
var
  jsonText : string;
  jsonObj : ISuperObject;
begin
  // 假设这是要被解析的数据字符串
  jsonText := '{"name":"John","age":30,"city":"New York"}';
  
  try
    jsonObj := SO(jsonText);  // 将 JSON 字符串转换成对象
    
    ShowMessage(Format('Name=%s Age=%d City=%s',
      [jsonObj.S['name'], jsonObj.I['age'], jsonObj.S['city']]));
    
  except on E: Exception do
    ShowMessage(E.Message);
  end;
end;

这段程序会创建一个按钮点击事件处理器 `ButtonParseClick` ，当触发该方法时将会显示从给定 JSON 格式的字符串里提取出来的姓名、年龄以及城市信息[^3]。

#### 示例代码：生成 JSON 字符串

同样可以很容易地构建一个新的 JSON 对象并向其中添加键值对，最后再导出为文本形式：

uses
  superobject;

function CreateJsonString(): String;
var
  personInfo : ISuperObject;
begin
  personInfo := SO();
  with personInfo do begin
    AddPair('name', 'Alice');
    AddPair('age', 28);
    AddPair('city', 'Los Angeles');
  end;
  
  Result := personInfo.AsJSon(True, True);  // 设置参数美化输出格式
end;

调用此函数将返回如下所示的标准 JSON 表达式：

{
  "name": "Alice",
  "age": 28,
  "city": "Los Angeles"
}

通过上述方式可以在 Delphi 7 中轻松地处理复杂的 JSON 结构化数据[^4]。