JSON 之 SuperObject(6): 方法

　SuperObject 的 JSON 對象中還可以包含 "方法", 這太有意思了; 其方法的格式是:

procedure　Method(const　This,　Params:　ISuperObject;　var　Result:　ISuperObject);　
　
//另外,　這是其數據類型的枚舉:　
TSuperType　=　(stNull,　stBoolean,　stDouble,　stInt,　stObject,　stArray,　stString,　stMethod);　

　　測試代碼:

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls,　Keyboard;　
　
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;　
　
//方法1;　參數列表是規定好的,　但這裡沒使用參數　
procedure　Method1(const　This,　Params:　ISuperObject;　var　Result:　ISuperObject);　
begin　
　ShowMessage('Hello');　
end;　
　
//方法2;　這裡使用了第二個參數;　這裡的第二個就是調用時的第一個　
procedure　Method2(const　This,　Params:　ISuperObject;　var　Result:　ISuperObject);　
begin　
　ShowMessage(Params.AsJSon);　
end;　
　
//方法3;　這裡使用了第一個參數;　第一個參數值使用時無需傳遞,　它代表使用方法的對象本身　
procedure　Method3(const　This,　Params:　ISuperObject;　var　Result:　ISuperObject);　
begin　
　ShowMessage(This.AsJSon);　
end;　
　
//方法4;　這裡使用了第三個參數;　這是調用時的返回值,　如果不給它賦值,　調用時將無返回值　
procedure　Method4(const　This,　Params:　ISuperObject;　var　Result:　ISuperObject);　
begin　
　Result　:=　This;　
　Result.Merge(Params,　True);　{合並}　
end;　
　
　
//第一種使用方法　
procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　jo:　ISuperObject;　
begin　
　jo　:=　SO('{"X":"Y"}');　
　jo.M['jm1']　:=　@Method1;　
　jo.M['jm2']　:=　@Method2;　
　jo.M['jm3']　:=　@Method3;　
　jo.M['jm4']　:=　@Method4;　
　
　jo.call('jm1');　　　　　　　　　　　//　Hello　
　
　jo.call('jm2',　SO('{"A":"B"}'));　　　//　{"A":"B"}　
　jo.call('jm2',　'{"A":"B"}');　　　　　//　{"A":"B"}　
　
　jo.call('jm3');　　　　　　　　　　　//　{"X":"Y"}　
　
　jo　:=　jo.call('jm4',　'{"B":null}');　
　ShowMessage(jo.AsJSon);　　　　　　　//　{"X":"Y","B":null}　
end;　
　
//第二種使用方法　
procedure　TForm1.Button2Click(Sender:　TObject);　
var　
　t,jo:　ISuperObject;　
begin　
　jo　:=　SO('{"X":"Y"}');　
　jo.M['jm1']　:=　@Method1;　
　jo.M['jm2']　:=　@Method2;　
　jo.M['jm3']　:=　@Method3;　
　jo.M['jm4']　:=　@Method4;　
　
　jo['jm1()'];　　　　　　　　　　　　　　//　Hello　
　
　jo['jm2('　+　'{"A":"B"}'　+　')'];　　　　//　{"A":"B"}　
　jo['jm2({A:B})'];　　　　　　　　　　　//　{"A":"B"}　
　
　jo['jm3()'];　　　　　　　　　　　　　　//　{"X":"Y"}　
　
　jo　:=　jo['jm4('　+　'{"B":null}'　+　')'];　
　ShowMessage(jo.AsJSon);　　　　　　　　//　{"X":"Y","B":null}　
end;　
　
end.