相关资料:http://www.cnblogs.com/del/archive/2009/10/23/1588690.html Delphi2007源代码: procedure TForm1.Button1Click(Sender: TObject); var jo: ISuperObject; item: ISuperObject; begin jo := SO(Memo1.Text); for item in jo do Showmessage(item.asjson(false,false
相关资料:http://www.cnblogs.com/del/archive/2009/10/23/1588690.html 问题现象:在高版本中可以使用IN处理JSON的节点循环问题,可是发现D7不支持. 问题处理: Delphi2007源代码: procedure TForm1.Button1Click(Sender: TObject); var jo: ISuperObject; item: ISuperObject; begin jo := SO(Memo1.Text); for it