利用SuperObject 循环处理Json深层次的值

<pre name="code" class="delphi">procedure TForm1.Button5Click(Sender: TObject);
var
  item,jo: ISuperObject;
  ja,JA_TYPE,JA_MAC:TSuperArray;    //json数组
  i,j,k:Integer;
  jts: TSuperTableString;  //TSuperTableString 的常用属性: count、GetNames、GetValues
begin
  jo := SO(Memo1.Text);
  jts:=jo.AsObject;
  mmo1.Lines.Add('结点数:'+IntToStr(jts.count ));
  mmo1.Lines.Add('键名:'+jts.GetNames.AsString);
  mmo1.Lines.Add('键值:'+jts.GetValues.AsString);
  jts:=jo['addresses'].AsObject;
  mmo1.Lines.Add('结点数:'+IntToStr(jts.count ));
  mmo1.Lines.Add(jts.GetNames.AsString);
  mmo1.Lines.Add('键值:'+jts.GetValues.AsString);
  jts:=jo.A['children'].N[0].AsObject;
  mmo1.Lines.Add('结点数:'+IntToStr(jts.count ));
  mmo1.Lines.Add(jts.GetNames.AsString);
  mmo1.Lines.Add('键值:'+jts.GetValues.AsString);
  jts:=jo.A['children'