将RESTResponse.Content转换为JSON值或JSON数组Delphi

uses
  REST.JSON;

var
  jsonObject: TJSONObject;
  jsonArray: TJSONArray;

jsonObject := TJSONObject.ParseJSONValue(RESTResponse.Content) as TJSONObject;

jsonArray := TJSONArray.ParseJSONValue(RESTResponse.Content) as TJSONArray;

if Assigned(jsonObject) then
begin
  // 解析为JSON对象成功
end
else if Assigned(jsonArray) then
begin
  // 解析为JSON数组成功
end
else
begin
  // 解析失败
end;

var
  value: TJSONValue;
begin
  value := jsonObject.GetValue('propertyName');
  if Assigned(value) then
  begin
    // 获取属性值成功
  end;
end;

var
  i: Integer;
  value: TJSONValue;
begin
  for i := 0 to jsonArray.Count - 1 do
  begin
    value := jsonArray.Items[i];
    // 处理数组元素
  end;
end;