JSON SuperObject (7) Double quotes that can be omitted in Delphi
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: Zhang San, Age: 李四)'); ShowMessage (jo2.AsJSon (False, False)); jo3: = SO ('(Name 1: Zhang San, Age 2: Li Si)'); ShowMessage (jo3.AsJSon (False, False)); {But if double quotes are not used, spaces before and after: will also be recognized; double quotes should still be used if possible} end ;