clientdataset(fdmemtable).delta(data)序列为JSON

clientdataset(fdmemtable).delta(data)序列为JSON

clientdataset和fdmemtable，都是DELPHI官方提供的内存表控件，许多的3层客户端都使用它们作数据集，因为3层客户端需要内存表数据集。

clientdataset的时代，REST API尚不流行。因此clientdataset只支持序列为二进制和XML，不支持序列为JSON。

firedac fdmemtable出来的时候，提倡物联网时代，REST API已经开始大行，因此fdmemtable支持序列为二进制、XML和JSON。

但是fdmemtable自带方法序列出来的JSON，非常不友好，一点儿都不人性。如果使用fdmemtable自带方法序列出的JSON，进行跨平台（语言）之间进行REST API对接，

据说是会被对方骂的。

鉴于此，咏南封装了clientdataset(fdmemtable).data序列为JSON，clientdataset(fdmemtable).delta序列为JSON的方法，使clientdataset和fdmemtable序列出来的JSON是一样的。

带来的好处是，使DELPHI最常用的二种内存表数据集，可以真正方便地同其他开发语言通过REST API进行三方对接，从而真正实现跨平台、跨设备之间进行互联的物联网初衷。

delta序列为json：

新增、修改和删除后的数据都会序列为JSON。

data序列为json

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

procedure TForm1.Button1Click(Sender: TObject); begin   ClientDataSet1.Append;   ClientDataSet1['unitid'] := '1';   ClientDataSet1['unitname'] := '个';   ClientDataSet1.Post;     ClientDataSet1.Append;   ClientDataSet1['unitid'] := '2';   ClientDataSet1['unitname'] := '双';   ClientDataSet1.Post;     var jo: TynJsonCross := TynJsonCross.Create;   Memo1.Text := jo.DeltaToJson(ClientDataSet1.Delta, 'tunit', '', 'unitid');   jo.Free; end;   procedure TForm1.Button2Click(Sender: TObject); begin   FDMemTable1.Append;   FDMemTable1['unitid'] := '1';   FDMemTable1['unitname'] := '个';   FDMemTable1.Post;     FDMemTable1.Append;   FDMemTable1['unitid'] := '2';   FDMemTable1['unitname'] := '双';   FDMemTable1.Post;     var jo: TynJsonCross := TynJsonCross.Create;   Memo1.Text := jo.DeltaToJson(FDMemTable1, 'tunit', '', 'unitid');   jo.Free; end;   procedure TForm1.Button3Click(Sender: TObject); begin   ClientDataSet1.Append;   ClientDataSet1['unitid'] := '1';   ClientDataSet1['unitname'] := '个';   ClientDataSet1.Post;     ClientDataSet1.Append;   ClientDataSet1['unitid'] := '2';   ClientDataSet1['unitname'] := '双';   ClientDataSet1.Post;     var jo: TynJsonCross := TynJsonCross.Create;   Memo1.Text := jo.DataSetToJson(ClientDataSet1);   jo.Free; end;   procedure TForm1.Button4Click(Sender: TObject); begin   FDMemTable1.Append;   FDMemTable1['unitid'] := '1';   FDMemTable1['unitname'] := '个';   FDMemTable1.Post;     FDMemTable1.Append;   FDMemTable1['unitid'] := '2';   FDMemTable1['unitname'] := '双';   FDMemTable1.Post;     var jo: TynJsonCross := TynJsonCross.Create;   Memo1.Text := jo.DataSetToJson(FDMemTable1);   jo.Free; end;   procedure TForm1.FormCreate(Sender: TObject); begin   ClientDataSet1.CreateDataSet;   FDMemTable1.CreateDataSet;   FDMemTable1.CachedUpdates := True; end;