JSON 之 SuperObject(5): Format 与转义字符
2009-10-23 18:10
344 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses SuperObject; //Format procedure TForm1.Button1Click(Sender: TObject); var jo: ISuperObject; begin jo := SO('{"Name":"张三", "Age":88, "Tel":["111,222"], "Children":{"Name":"张继"}}'); ShowMessage(jo.Format('姓名: %Name%; 年龄: %Age%')); ShowMessage(jo.Format('%Tel%; %Tel[0]%; %Tel[1]%')); ShowMessage(jo.Format('%Children%; %Children.Name%')); ShowMessage(jo.Format('[Name], [Age]', '[', ']')); {可更换默认的 % 标记} end; //特殊字符 procedure TForm1.Button2Click(Sender: TObject); var jo: ISuperObject; begin jo := SO; { \u } jo := SO('"\u0041\u0042\u0043"'); ShowMessage(jo.AsString); { \x } jo := SO('"\x41\x42\x43"'); ShowMessage(jo.AsString); { \u 汉字} jo := SO('"\u4e07\u4e00"'); ShowMessage(jo.AsString); { \u 后面的数字可大写 } jo := SO('"\u4E07\u4E00"'); ShowMessage(jo.AsString); { \\、\/ } jo := SO('"A\\B\/C"'); ShowMessage(jo.AsString); { \t、\n 还有 \b、\f、\r } jo := SO('"A\tB\nC"'); ShowMessage(jo.AsString); { \"" } jo := SO('"\"ABC\""'); ShowMessage(jo.AsString); { null 是 JSON 的一种数据类型, 代表空值, 空值也是值的一种 } jo := SO('[1,2,3,null]'); ShowMessage(jo.AsString); end; end.
相关文章推荐
- JSON 之 SuperObject(5): Format 与转义字符
- JSON 之 SuperObject(1)
- JSon SuperObject 研究2:数据集与JSON对象互转
- 通过 SuperObject 生成 json string
- 使用superobject 新建Json数据(数组)
- JSON工具SuperObject编译时"整数溢出"异常的解决办法
- JSON 之 SuperObject(4): 增、删、改
- JSON 之 SuperObject(8): 关于乱码的几种情况 - 向 Henri Gourvest 大师报告
- JSON 之 SuperObject(9): TSuperType
- JSON 之 SuperObject(16): 实例 - 解析 Google 关键字搜索排名
- Delphi中JSon SuperObject 使用:数据集与JSON对象互转
- JSON 之 SuperObject(3): 访问
- JSON 之 SuperObject(11): TSuperTableString、TSuperAvlEntry
- JSon SuperObject 研究
- superobject数组添加json对象,用的是引用
- 利用SuperObject 循环处理Json深层次的值
- JSON 之 SuperObject(10): Merge、Clone、ForcePath
- JSON 之 SuperObject(4): 增、删、改
- XE8 json之 superobject
- SuperObject的JSON使用方法