Delphi 7 TJSONObject 代码

以下是 Delphi 7 中使用 TJSONObject 的示例代码：

uses
  SysUtils, Classes, JSON;

procedure WriteJSONObject;
var
  JSONObject: TJSONObject;
begin
  JSONObject := TJSONObject.Create;
  try
    // 添加属性
    JSONObject.AddPair('name', 'John');
    JSONObject.AddPair('age', TJSONNumber.Create(30));
    JSONObject.AddPair('married', TJSONBool.Create(True));
    JSONObject.AddPair('address', TJSONObject.Create(
      TJSONPair.Create('street', '123 Main St'),
      TJSONPair.Create('city', 'Anytown'),
      TJSONPair.Create('state', 'CA'),
      TJSONPair.Create('zip', '12345')
    ));

    // 输出 JSON 字符串
    Writeln(JSONObject.ToString);
  finally
    JSONObject.Free;
  end;
end;

上面的代码创建了一个 TJSONObject 对象，添加了一些属性，最后输出 JSON 字符串。其中，使用了 TJSONNumber 和 TJSONBool 类型来表示数字和布尔值，使用 TJSONObject 类型来表示嵌套对象。可以根据需要添加更多的属性和对象。