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