json - 使用System.JSON方法和实现的Delphi XE 6失败

Question

我在Delphi XE6中创建了一个简单的测试应用程序，我想开始使用Delphi的JSON处理来自自定义编码Web服务器(我正在使用的服务器)的请求

procedure TForm1.Button1Click(Sender: TObject);
var
  Servermethods : TServerMethods1Client;
  JsonArray : TJSONArray;
  JsonValue: TJSONValue;
  JSonObj: TJSONObject;
  JSPair: TJSONPair;
  s: String;
begin
  JSonObj := TJSONObject.Create;
  JSonObj.AddPair(TJSONPair.Create('a','abcde'));
  JsonArray := TJSONArray.Create;
  JsonArray.AddElement(JSonObj);

  JsonValue := JsonArray.Items[0];
  JSonObj := (JsonValue as TJSONObject);

  JSPair := TJSONPair(JSonObj);

  s := JSPair.JsonString.Value;
end;

当您检查/评估任何JSON对象(CTRL + F7)时，根本没有任何信息，在检查器中，我只是得到“()”-[aka empty]-

但是出于参数考虑，如果我将调用更改为JSONObj.Tostring，则会得到完整的json字符串({“a”，“abcde”})，这很酷，但很酷，但是当它到达最后一行时

s := JSPair.JsonString.Value;

繁荣!访问冲突。

任何帮助，将不胜感激

*编辑*
我实际上是在问我要有人在XE6中对此进行测试，以查看是否为错误吗？还是我遗漏了一些非常明显的东西？

Answer 1

JSONPair是JSONObject的一部分，因此您无法将JSONObject强制转换为JSONPair。使用JSONObject.Get获取对。