提交JSON修改数据

设计目标：

1）可以一次性提交多个表的修改数据

2）跨语言、跨平台

{    "deltas":    [        {            "table": "tunit",            "rows":            [                {"action": "modify", "original": {"unitid":"11","unitname":"个"}, "current": {"unitname":"中"}},                {"action": "delete", "original": {"unitid":"66","unitname":"国"}},                {"action": "insert", "current":{"unitid":"13","unitname":"人"}}            ]        }        ......    ]}

解析JSON得到SQL语句：　

procedure TForm1.Button5Click(Sender: TObject);begin  var json: string := '{"table": "tunit","rows":[{"action": "modify", "original": {"unitid":"11","unitname":"个"},'  +'"current": {"unitid":"11","unitname":"中"}},{"action": "delete", "original": {"unitid":"66","unitname":"国"}},'  +'{"action": "insert", "current":{"unitid":"13","unitname":"人"}}]}';  var serial: TynJsonCross := TynJsonCross.Create;  try    Memo1.Text := serial.JsonToSql(json);  finally    serial.DisposeOf;  end;end;