JSON 之 SuperObject(5): Format 與轉義字符

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.