JsonDataObjects基本演示
2016-04-03 12:03
405 查看
下载地址https://github.com/ahausladen/JsonDataObjects
执行程序截图
Json数据
窗体上放上两个Memo控件,左边存放Json,另一个输出Json值
执行程序截图
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 简单实用
- 对对象包装类ObjectInputStream/ObjectOutputStream的应用
- 数组与Object的关系及其反射类型
- NSObject
- 深入理解Objective-C:Category(下)
- 深入理解Objective-C:Category(上)
- Object wait T ms to run again
- Object wait and notify
- Objective-c 对象与类 继承
- Objective-c 对象与类 封装
- 一张图看懂Function和Object的关系及简述instanceof运算符
- Qt 向word中插入文字(使用QAxWidget和QAxObject)
- SPRING IN ACTION 第4版笔记-第十一章Persisting data with object-relational mapping-006Spring-Data的运行规则(@EnableJpaRepositories、<jpa:repositories>)
- 解决循环操作ObjectInputStream的readObject()方法的EOF异常
- 执行命令行并等待完成(使用WaitForSingleObject达到目的)
- JSONObject转换JSON--将Date转换为指定格式
- SPRING IN ACTION 第4版笔记-第十一章Persisting data with object-relational mapping-005Spring-Data-JPA例子的代码
- SPRING IN ACTION 第4版笔记-第十一章Persisting data with object-relational mapping-004JPA例子的代码
- 使用 jackson ObjectMapper将java对象转换为json对象
- QT中的QMetaObject