JsonDataObjects基本演示
2018-01-14 21:37
357 查看
JsonDataObjects基本演示
下载地址https://github.com/ahausladen/JsonDataObjects执行程序截图
Json数据
{ "name": "张三", "age": 33, "sex": true, "weight": 123.456, "tel": ["86-1111111", "86-2222222"], "addresses":{"address":"A省B市", "pc":"100001"}, "children": [ { "name": "张继", "age": "22", "sex": true }, { "name": "张承", "age": "11", "sex": false } ] }
窗体上放上两个Memo控件,左边存放Json,另一个输出Json值
uses JsonDataObjects; procedure TForm1.Button1Click(Sender: TObject); var jo: TJsonObject; i: Integer; begin jo := TJsonObject.Parse( Memo1.Text) as TJsonObject; Memo2.Lines.Add(jo['name']); Memo2.Lines.Add(jo['age']); Memo2.Lines.Add(jo['sex']); Memo2.Lines.Add(jo['weight']); Memo2.Lines.Add(jo['tel'].Items[0]); Memo2.Lines.Add(jo['tel'].Items[1]); Memo2.Lines.Add(jo['addresses'].S['address']); Memo2.Lines.Add(jo['addresses'].S['pc']); Memo2.Lines.Add('总共数据数:' + inttostr(jo['children'].Count)); for i := 0 to jo['children'].Count - 1 do begin Memo2.Lines.Add(jo['children'].Items[i]['name']); Memo2.Lines.Add(jo['children'].Items[i]['age']); Memo2.Lines.Add(jo['children'].Items[i]['sex']); end; jo.Free; end;
相关文章推荐
- JsonDataObjects基本演示
- .Net——使用DataContractJsonSerializer进行序列化及反序列化基本操作
- java Jackson 库操作 json 的基本演示
- JsonDataObjects git 下载网址
- .Net——使用DataContractJsonSerializer进行序列化及反序列化基本操作
- JsonDataObjects 简单实用
- Delphi Xe DataSnap Rest + Flex 开发 基本探索2(取得Json 数组)
- java Jackson 库操作 json 的基本演示
- JsonDataObjects序列和还原
- java Jackson 库操作 json 的基本演示
- java Jackson 库操作 json 的基本演示
- .Net——使用DataContractJsonSerializer进行序列化及反序列化基本操作
- JsonDataObjects 简单实用
- JsonDataObjects序列和还原
- java Jackson 库操作 json 的基本演示
- Spring-Data-JPA 初探演示基本流程
- java Jackson 库操作 json 的基本演示
- java Jackson 库操作 json 的基本演示
- java Jackson 库操作 json 的基本演示
- 异步请求时,JSON.stringify()导致data参数中加号(+)丢失