在 JSON 中, 字符串应该在双引号中; 从上个例子才发现: 原来这个双引号可以省略, 有空格都行
当然只是在程序代码中可以省略, 对象会自动识别添加的.
即如此, 下面写法都可以:
uses SuperObject; procedure TForm1.Button1Click(Sender: TObject); var jo1,jo2,jo3: ISuperObject; begin jo1 := SO('{"Name":"张三", "Age":"李四"}'); ShowMessage(jo1.AsJSon(False, False)); jo2 := SO('{Name:张三, Age:李四}'); ShowMessage(jo2.AsJSon(False, False)); jo3 := SO('{Name 1:张 三, Age 2:李 四}'); ShowMessage(jo3.AsJSon(False, False)); {但如果不使用双引号, : 前后的空格也会被识别; 还是应尽量使用双引号} end;