JSON序列——保存修改数据2

JSON序列——保存修改数据2

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button7Click(Sender: TObject);
begin
  var delta: TynJsonDelta := TynJsonDelta.Create('tunit');
  var delta2: TynJsonDelta := TynJsonDelta.Create('tgoods');
  var deltas: TynJsonDeltas := TynJsonDeltas.Create;
  try
    delta.Insert('{"unitid":"13","unitname":"人"}');
    delta.Delete('{"unitid":"66","unitname":"国"}');
    delta.Update('{"unitid":"11","unitname":"中"}', '{"unitid":"11","unitname":"个"}');
    delta2.Insert('{"goodsid":"123456","goodsname":"咏南中间件"}');
    deltas.Add(delta.Text);
    deltas.Add(delta2.Text);
    Memo1.Text := deltas.Text;
  finally
    delta.Free;
    delta2.Free;
    deltas.Free;
  end;
end;

　　生成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
{
    "deltas": [
        {
            "table": "tunit",
            "rows": [
                {
                    "action": "insert",
                    "current": {
                        "unitid": "13",
                        "unitname": "人"
                    }
                },
                {
                    "action": "delete",
                    "original": {
                        "unitid": "66",
                        "unitname": "国"
                    }
                },
                {
                    "action": "modify",
                    "current": {
                        "unitid": "11",
                        "unitname": "中"
                    },
                    "original": {
                        "unitid": "11",
                        "unitname": "个"
                    }
                }
            ]
        },
        {
            "table": "tgoods",
            "rows": [
                {
                    "action": "insert",
                    "current": {
                        "goodsid": "123456",
                        "goodsname": "咏南中间件"
                    }
                }
            ]
        }
    ]
}

　　

posted @   delphi中间件  阅读(571)  评论(0)  编辑  收藏  举报
编辑推荐：
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· AI与.NET技术实操系列：向量存储与相似性搜索在 .NET 中的实现
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· Linux系列：如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
阅读排行：
· TypeScript + Deepseek 打造卜卦网站：技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 三行代码完成国际化适配，妙~啊~
· .NET Core 中如何实现缓存的预热？
点击右上角即可分享
微信分享提示
SQL AI 助手