JSON 之 SuperObject(4): 增、删、改
2024-10-18 05:00:42
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses SuperObject; //添加 procedure TForm1.Button1Click(Sender: TObject); var jo: ISuperObject; i: Integer; begin jo := TSuperObject.Create; do jo.I['N' + IntToStr(i)] := i; ShowMessage(jo.AsJSon(True)); do jo.S['N' + IntToStr(i)] := IntToStr(i); ShowMessage(jo.AsJSon(True)); do jo.B['N' + IntToStr(i)] := Odd(i); ShowMessage(jo.AsJSon(True)); ; ShowMessage(jo.AsJSon(True)); do jo.O['N' + IntToStr(i)] := SO('{"A":"B"}'); ShowMessage(jo.AsJSon(True)); jo.Clear; ShowMessage(jo.AsJSon(True)); end; //修改与删除 procedure TForm1.Button2Click(Sender: TObject); var jo: ISuperObject; str: string; begin jo := SO('{"Name":"张三", "Age":88}'); ShowMessage(jo.AsJSon(False, False)); jo.S['Name'] := '李四'; jo.I[; ShowMessage(jo.AsJSon(False, False)); jo.Delete('Age'); ShowMessage(jo.AsJSon(False, False)); jo.D['Size'] := 1.83; ShowMessage(jo.AsJSon(False, False)); end; //TSuperArray 的增、删、改与查看 procedure TForm1.Button3Click(Sender: TObject); var jo,item: ISuperObject; ja: TSuperArray; i: Integer; str: string; begin jo := SO('{"爱好":["编程","打球"]}'); ShowMessage(jo.AsJSon(False, False)); jo.A['爱好'].Add(SO('看电视')); ShowMessage(jo.AsJSon(False, False)); ja := jo.A['爱好']; ja.Add(SO('游泳')); ShowMessage(jo.AsJSon(False, False)); ja.Insert(, SO('睡觉')); ShowMessage(jo.AsJSon(False, False)); ja.Delete(); ShowMessage(jo.AsJSon(False, False)); ja.D[] := 3.14; ShowMessage(jo.AsJSon(False, False)); ja.O[] := SO('{}'); ShowMessage(jo.AsJSon(False, False)); str := ''; do str := Format('%s %s', [str, ja.S[i]]); ShowMessage(Trim(str)); str := ''; for item in jo['爱好'] do str := Format('%s %s', [str, item.AsString]); ShowMessage(Trim(str)); ja.Clear; ShowMessage(jo.AsJSon(False, False)); end; end.
最新文章
- ASP.NET本质论第一章网站应用程序学习笔记1
- 关于jQuery学习
- lintcode: 跳跃游戏 II
- 【HDOJ】1362 The Bermuda Triangle
- 研究QGIS二次开发笔记(一)
- HDU 3038 How Many Answers Are Wrong 并查集带权路径压缩
- SQLServer 2012 已成功与服务器建立连接,但是在登录前的握手期间发生错误。 (provider: SSL Provider, error: 0 - 等待的操作过时。
- 交换右ctrl和capslock
- hdu 4039 The Social Network
- ubuntu系统使用SSH免密码登陆
- ReactiveNative学习之Diff算法
- Spring读取外部属性-properties
- WDF驱动的编译、调试、安装
- 操作系统内核Hack:(二)底层编程基础
- Manjaro 安装后的配置
- react图工具集成
- 关于在虚拟机上安装ubuntu输入不了中文的问题
- EDK II之SMM/SMI
- 迅为4412开发板QtE系统源码-屏幕横竖屏切换修改方法
- html的表格 table