delphi superobject循环节点

var
  jo : ISuperObject;
  i : integer;
  list : TStrings;
begin
  jo := SO('{"A":1, B:2, C:3, D:4}');
  Memo1.Clear;
  for i := jo.AsObject.count -1 downto  0 do
  begin
    Memo1.Lines.Add(jo.AsObject.GetNames.AsArray[i].AsString +':'+jo.AsObject.GetValues.AsArray[i].AsString);
  end;
  Memo1.Lines.Add( jo.S['E']);


end;