在Delphi中解析Json数组

我在解析Json中的数组时遇到问题。杰森就是这个例子:

    [
      [
        A1,A2,A3,],[
        B1,B2,B3,

以此类推。

如果我尝试解析它,总是会出现访问冲突错误:

procedure tform1.test;
var
 i:integer
 value,A:string;
 jValue:TJSONValue;
 JSonValue:TJSonValue;
 Jarray:TJSONArray;

 begin
 jValue:=RESTResponse1.JSONValue;
 Jarray := TJSonObject.ParseJSONValue(value) as tjsonarray;
 for i := 0 to Jarray.Count - 1 do
 A:=Jarray.items[i].value;
 end;

我在做什么错了?

bozipk 回答:在Delphi中解析Json数组

使用JsonValue as TJSONArray两次。一个有效的示例:

procedure TForm1.Test1;
var
  I: Integer;
  Value,A: String;
  jValue: TJSONValue;
  JSonValue1,JSonValue2: TJSonValue;
  JArray,JArr: TJSONArray;
begin
  Value  := '[["A1","A2","A3"],["B1","B2","B3"]]';
  JsonValue1 := TJSonObject.ParseJSONValue(Value);
  try
    JArray := JsonValue1 as TJSONArray;
    for JsonValue2 in JArray do
    begin
      JArr := JsonValue2 as TJSONArray;
      A := JArr.Items[0].Value;
      ShowMessage(A);
    end;
  finally
    JsonValue1.Free;
  end;
end;
本文链接:https://www.f2er.com/3040134.html

大家都在问