delphi 处理json

Delphi可以使用TJSONObject类来处理JSON数据。您可以使用TJSONObject类中的方法将JSON数据解析为对象，或将对象转换为JSON格式的字符串。

以下是一个简单的示例，演示如何使用TJSONObject类将JSON字符串解析为对象：

var
  JsonObject: TJSONObject;
  JsonString: string;
begin
  JsonString := '{"name":"John", "age":30, "city":"New York"}';
  JsonObject := TJSONObject.ParseJSONValue(JsonString) as TJSONObject;

  // 获取属性值
  ShowMessage(JsonObject.GetValue('name').Value);

  // 释放对象
  JsonObject.Free;
end;

以下是将对象转换为JSON字符串的示例：

var
  JsonObject: TJSONObject;
  JsonString: string;
begin
  JsonObject := TJSONObject.Create;
  JsonObject.AddPair('name', 'John');
  JsonObject.AddPair('age', TJSONNumber.Create(30));
  JsonObject.AddPair('city', 'New York');

  JsonString := JsonObject.ToJSON;

  // 输出JSON字符串
  ShowMessage(JsonString);

  // 释放对象
  JsonObject.Free;
end;

这只是一个简单的示例，TJSONObject类提供了更多方法和属性，以处理更复杂的JSON数据。