问题-Delphi7中JSON遍历节点不支持使用IN处理方法?
相关资料:http://www.cnblogs.com/del/archive/2009/10/23/1588690.html
问题现象:在高版本中可以使用IN处理JSON的节点循环问题,可是发现D7不支持。
问题处理:
Delphi2007源代码:
1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 jo: ISuperObject; 4 item: ISuperObject; 5 begin 6 jo := SO(Memo1.Text); 7 for item in jo do 8 Showmessage(item.asjson(false,false)); 9 end;
Delphi7源代码:
1 //使用 TSuperObjectIter 遍历 2 procedure TForm1.Button8Click(Sender: TObject); 3 var 4 jo: ISuperObject; 5 item: TSuperObjectIter; 6 begin 7 jo := SO(Memo1.Text); 8 9 if ObjectFindFirst(jo, item) then 10 repeat 11 ShowMessageFmt('key: %s; val: %s', [item.key, item.val.AsString]); 12 until not ObjectFindNext(item); 13 ObjectFindClose(item); 14 end;
作者:疯狂Delphi
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利.
欢迎关注我,一起进步!扫描下方二维码即可加我
![](https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_200417075318%E5%8A%A0%E6%88%91QQ.jpg)
![](https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_200417080925%E5%8A%A0%E6%88%91%E5%BE%AE%E4%BF%A1.jpg)