delphi - 如何使用 XSuperObject 查询仅包含 [] 的 JSON 数组

Question

我有这个数组：

["a", "b", "c", "d"]

我需要使用 XSuperObject 得到这些结果。目前，根据我对 XSuperObject 库的理解，您需要这样的东西来获取数据：

aObj := SA(returnString);
for i := 0 to aObj.Length - 1 do
begin
  obj2 := aObj.O[i];
  arrayElement := GetJsonValue(obj2, keyValue);
end;

GetJSONValue 是一个定义为的函数：

function TfrmMain.GetJsonValue(obj:ISuperObject; Name: String): String; 
begin
  Result := '';
  if obj.Contains(Name) then
  Result := obj.S[Name];
end;

这适用于以这种 JSON 格式返回的数组：

[{"activityID":"1","keyValue":"a"},
 {"activityID":"2","keyValue":"b"},
 {"activityID":"3","keyValue":"c"}]

我如何让 XSuperObject 库为顶部的数组工作。

任何帮助将不胜感激。

提前致谢。

Answer 1

您有一个字符串数组，而不是对象数组，因此请跳过GetJsonValue()并aObj.S[i]自行使用：

aObj := SA(returnString);
for i := 0 to aObj.Length - 1 do
begin
  arrayElement := aObj.S[i];
end;