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 := to do jo.I['N' + IntToStr(i)] := i;
  ShowMessage(jo.AsJSon(True));   for i := to do jo.S['N' + IntToStr(i)] := IntToStr(i);
  ShowMessage(jo.AsJSon(True));   for i := to do jo.B['N' + IntToStr(i)] := Odd(i);
  ShowMessage(jo.AsJSon(True));   for i := to do jo.D['N' + IntToStr(i)] := i / ;
  ShowMessage(jo.AsJSon(True));   for i := to 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'] := ;
  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 := '';
  for i := to ja.Length - 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.

XE随想4:SuperObject增、删、改的更多相关文章

  1. C# ADO.NET (sql语句连接方式)(增,删,改)

    using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.We ...

  2. 好用的SQL TVP~~独家赠送[增-删-改-查]的例子

    以前总是追求新东西,发现基础才是最重要的,今年主要的目标是精通SQL查询和SQL性能优化.  本系列主要是针对T-SQL的总结. [T-SQL基础]01.单表查询-几道sql查询题 [T-SQL基础] ...

  3. iOS FMDB的使用(增,删,改,查,sqlite存取图片)

    iOS FMDB的使用(增,删,改,查,sqlite存取图片) 在上一篇博客我对sqlite的基本使用进行了详细介绍... 但是在实际开发中原生使用的频率是很少的... 这篇博客我将会较全面的介绍FM ...

  4. iOS sqlite3 的基本使用(增 删 改 查)

    iOS sqlite3 的基本使用(增 删 改 查) 这篇博客不会讲述太多sql语言,目的重在实现sqlite3的一些基本操作. 例:增 删 改 查 如果想了解更多的sql语言可以利用强大的互联网. ...

  5. ADO.NET 增 删 改 查

    ADO.NET:(数据访问技术)就是将C#和MSSQL连接起来的一个纽带 可以通过ADO.NET将内存中的临时数据写入到数据库中 也可以将数据库中的数据提取到内存中供程序调用 ADO.NET所有数据访 ...

  6. MVC EF 增 删 改 查

    using System;using System.Collections.Generic;using System.Linq;using System.Web;//using System.Data ...

  7. 第18课-数据库开发及ado.net 连接数据库.增.删.改向表中插入数据并且返回自动编号.SQLDataReade读取数据

    第18课-数据库开发及ado.net 连接数据库.增.删.改向表中插入数据并且返回自动编号.SQLDataReade读取数据 ADO.NET 为什么要学习? 我们要搭建一个平台(Web/Winform ...

  8. django ajax增 删 改 查

    具于django ajax实现增 删 改 查功能 代码示例: 代码: urls.py from django.conf.urls import url from django.contrib impo ...

  9. StringBuilder修改字符串内容,增,删,改,插

    package seday01;/** * 字符串不变对象特性只针对字符串重用,并没有考虑修改操作的性能.因此String不适合频繁修改内容. * 若有频繁修改操作,使用StringBuilder来完 ...

  10. python基础中的四大天王-增-删-改-查

    列表-list-[] 输入内存储存容器 发生改变通常直接变化,让我们看看下面列子 增---默认在最后添加 #append()--括号中可以是数字,可以是字符串,可以是元祖,可以是集合,可以是字典 #l ...

随机推荐

  1. -include和sinclude 作用

    -include和sinclude   如果有文件没有找到的话,make会生成一条警告信息,但不会马上出现致命错误.它 会继续载入其它的文件,一旦完成makefile的读取,make会再重试这些没有找 ...

  2. 圆内接三角形(X神的代码玩的真好)

    设$S$为半径等于$1$的圆内接三角形的面积,则$4S+\dfrac 9S$的最小值是_______. [分析与解] 先证明$S$的最大值为$\dfrac{3\sqrt 3}4$.设$\triangl ...

  3. 使用asmcmdcp命令把datafile从文件系统移动(move)到asm磁盘组中 针对11gR2

    使用asmcmd cp命令 把datafile从文件系统移动(move)到asm磁盘组中--针对11gR2 参考原文:How to Move a Datafile from Filesystem to ...

  4. IDEA新建javaWeb以及Servlet简单实现

    刚开始用IDEA开发,还不太熟悉,因此写一个教程,加深印象 1.新建一个Web项目 两种方法:java 和 Java Enterprise(推荐) 第一种)通过Java工程创建,这个方法需要手动导入T ...

  5. 关掉apache2服务器日志文件

    磁盘空间突然满了,才发现是这个东西占空间.11个G的空间 修改:/etc/apache2/size-available/default <VirtualHost *:80>ServerNa ...

  6. study topics

    永远不变的东西,原理 study roadmap: 1.user space: tizen power manager => suspend/resume or runtime? android ...

  7. Excel—“撤销工作表保护密码”的破解并获取原始密码

    您是否遇到过这样的情况:您用Excel编制的报表.表格.程序等,在单元格中设置了公式.函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护 ...

  8. zedboard如何从PL端控制DDR读写(四)

    PS-PL之间的AXI 接口分为三种:• 通用 AXI(General Purpose AXI) — 一条 32 位数据总线,适合 PL 和 PS 之间的中低速通信.接口是透传的不带缓冲.总共有四个通 ...

  9. 32、shiro 框架入门三

    1.AuthenticationStrategy实现 //在所有Realm验证之前调用 AuthenticationInfo beforeAllAttempts( Collection<? ex ...

  10. ajax请求后根据条件进行页面跳转

    $.ajx({ url: "@Url.Action("DetectCorporationCompetencyCreated", "DataBase") ...