使用QJSON解析數據：

?JSon 字符串：

{"Code":1,"Msg":"", "Data":[{"NetType":"電信","ServerName":"test1","ServerAddr":"127.0.0.1:30001","ServerIp":"55551","ServerPort":3000,"OnlineCount":300,"MaxOnlineCount":0},{"NetType":"電信","ServerName":"test1","ServerAddr":"::13000","ServerIp":"::1","ServerPort":3000,"OnlineCount":3,"MaxOnlineCount":0},{"NetType":"電信","ServerName":"test1","ServerAddr":"127.0.0.1:3000","ServerIp":"::1","ServerPort":3000,"OnlineCount":3,"MaxOnlineCount":0}]} View Code

Delphi代碼：

procedure TForm2.Button1Click(Sender: TObject); varJson,AItem:TQJson;i:Integer;beginJson:=TQJson.Create;Json.Parse(Memo1.Text);//ShowMessage(Json.AsString); AItem := Json.ItemByName('Data') ;for I := 0 to AItem.Count-1 dobeginMemo2.Lines.Add(AItem.Items[i].ValueByName('NetType',''));Memo2.Lines.Add(AItem.Items[i].ValueByName('ServerAddr',''));Memo2.Lines.Add(AItem.Items[i].ValueByName('ServerIp',''));Memo2.Lines.Add(AItem.Items[i].ValueByName('ServerPort',''));Memo2.Lines.Add(AItem.Items[i].ValueByName('OnlineCount',''));Memo2.Lines.Add(AItem.Items[i].ValueByName('MaxOnlineCount',''));Memo2.Lines.Add('-----------------------------------------')end; end; View Code

?

其它例子：

1.http://www.cnblogs.com/codingnote/p/3821025.html?utm_source=tuicool&utm_medium=referral

?

轉載于:https://www.cnblogs.com/stroll/p/5263867.html

總結

以上是生活随笔為你收集整理的Delphi Qjson的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。