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; for i := 0 to 9 do jo.I['N' + IntToStr(i)] := i; ShowMessage(jo.AsJSon(True)); for i := 0 to 9 do jo.S['N' + IntToStr(i)] := IntToStr(i); ShowMessage(jo.AsJSon(True)); for i := 0 to 9 do jo.B['N' + IntToStr(i)] := Odd(i); ShowMessage(jo.AsJSon(True)); for i := 0 to 9 do jo.D['N' + IntToStr(i)] := i / 2; ShowMessage(jo.AsJSon(True)); for i := 0 to 9 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['Age'] := 18; 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(0, SO('睡觉')); ShowMessage(jo.AsJSon(False, False)); ja.Delete(0); ShowMessage(jo.AsJSon(False, False)); ja.D[0] := 3.14; ShowMessage(jo.AsJSon(False, False)); ja.O[0] := SO('{}'); ShowMessage(jo.AsJSon(False, False)); str := ''; for i := 0 to ja.Length - 1 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.
分类:
Delphi 与 JSON
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
· 阿里最新开源QwQ-32B,效果媲美deepseek-r1满血版,部署成本又又又降低了!
· 开源Multi-agent AI智能体框架aevatar.ai,欢迎大家贡献代码
· Manus重磅发布:全球首款通用AI代理技术深度解析与实战指南
· 被坑几百块钱后,我竟然真的恢复了删除的微信聊天记录!
· 没有Manus邀请码?试试免邀请码的MGX或者开源的OpenManus吧
2008-10-23 建立快捷方式的函数: CreateShortcut - 非常实用、特别方便
2008-10-23 BringToFront、SendToBack - 控件置前与置后
2008-10-23 Controls 属性与继承 TShape 类的小练习
2008-10-23 测试 Components 与 Controls 的区别