如何在Delphi中解析JSON字符串？

var
  JsonStr: string;
  JsonObject: TJSONObject;
begin
  JsonStr := '{"name":"John","age":30,"city":"New York"}';
  JsonObject := TJSONObject.ParseJSONValue(JsonStr) as TJSONObject;
  try
    // 解析JSON对象
    // 可以通过JsonObject.GetValue('key')获取对应的值
    // 例如：JsonObject.GetValue('name').Value  获取name字段的值
  finally
    JsonObject.Free;
  end;
end;

var
  JsonStr: string;
  JsonParser: TJSONParser;
  JsonValue: TJSONValue;
begin
  JsonStr := '{"name":"John","age":30,"city":"New York"}';
  JsonParser := TJSONParser.Create(JsonStr);
  try
    JsonValue := JsonParser.Parse;
    if JsonValue <> nil then
    begin
      // 解析JSON值
      // 可以通过JsonValue.GetValue<TJSONValue>('key')获取对应的值
      // 例如：JsonValue.GetValue<string>('name')  获取name字段的值
    end;
  finally
    JsonParser.Free;
  end;
end;