在 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;

posted on 2009-10-23 22:17  万一  阅读(7429)  评论(1编辑  收藏  举报