var Jv: TJSONValue; Ja: TJSONArray; begin Ja := TJSONObject.ParseJSONValue(Json) as TJSONArray; for Jv in Ja do ShowMessage(Jv.GetValue<string>('id') + ' ' + Jv.GetValue<string>('parentId'));
我测试了一下,以下办法可以解决 var aa:TJsonArray; bb, cc:TJSONObject; i, j, k:integer; Ja: TJSONArray; Jv: TJSONValue; GetStr:String; //for i := 0 to 1000 do begin aa := TJsonArray.Create; k:=0; try for j := 0 to 10 do begin
{ bb := TJSONObject.Create; for k := 0 to 2 do begin bb.AddPair(inttostr(k), inttostr(k + 1)); end; }
Ja := TJSONObject.ParseJSONValue(Memo1.Text) as TJSONArray; memo2.Lines.Clear; for Jv in Ja do BEGIN GetStr:='tablename1=' + Jv.GetValue<string>('tablename1') + ' tablename2=' + Jv.GetValue<string>('tablename2'); memo2.Lines.Add(GetStr); END; end;