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. MySQL日志恢复误删记录

    1.查询日志是否开启 show variables like"log_"; 2.查询是用的哪个日志文件 show master status; 3.定位是在什么时间误删的 /usr ...

  2. 51nod 1290 Counting Diff Pairs 莫队 + bit

    一个长度为N的正整数数组A,给出一个数K以及Q个查询,每个查询包含2个数l和r,对于每个查询输出从A[i]到A[j]中,有多少对数,abs(A[i] - A[j]) <= K(abs表示绝对值) ...

  3. Centos6.4 用rpm方式安装MySql5.6

    1.查看系统是否安装了MySQL     使用命令:     #rpm -qa | grep mysql    2.卸载已安装的MySQL      卸载mysql命令如下:       #rpm - ...

  4. php Base64编码/解码

    一.PHP使用方法 //加密 $str = 'This is an encoded string'; echo base64_encode($str); //解密 $str = 'VGhpcyBpcy ...

  5. IOS跳转设置页面及其他各种跳转页面设置

    转载来源 CocoaChina 跳到更多设置界面 除了跳到WiFi设置界面,能不能跳到其他的设置界面呢?比如:定位服务.FaceTime.音乐等等.都是可以的,一起来看看如何实现的! 定位服务 定位服 ...

  6. ForeignKey 的第二个位置参数on_delete

    on_delete指的是通过ForeignKey连接起来的对象被删除后,当前字段怎么变化. 常见的选项有: models.CASCADE,对就对象删除后,包含ForeignKey的字段也会被删除 mo ...

  7. display:none与visibility: hidden的区别

    display:none和visibility: hidden都能把网页上某个元素隐藏起来,但两者有区别: display:none ---不为被隐藏的对象保留其物理空间,即该对象在页面上彻底消失. ...

  8. Libevent 定时器

    先摘一点网上的介绍 libevent是一个事件触发的网络库,适用于windows.linux.bsd等多种平台,内部使用select.epoll.kqueue等系统调用管理事件机制.著名分布式缓存软件 ...

  9. Yarn&Mapreduce参数的具体含义和配置参考

    Yarn & Mapreduce 参数的具体含义和配置 http://zh.hortonworks.com/blog/how-to-plan-and-configure-yarn-in-hdp ...

  10. Java基础以及与C++的一些对比

    这两天回忆一些Java基础,感觉自己很多地方都不是很牢固,也花费在不少时间和不少流量在手机上查资料. 还是写下来这些东西以免再忘记. 同时还是要记住多动手,编程最重要的就是动手敲啊,有想法有疑问就要自 ...