XE随想4:SuperObject增、删、改
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增、删、改的更多相关文章
- C# ADO.NET (sql语句连接方式)(增,删,改)
using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.We ...
- 好用的SQL TVP~~独家赠送[增-删-改-查]的例子
以前总是追求新东西,发现基础才是最重要的,今年主要的目标是精通SQL查询和SQL性能优化. 本系列主要是针对T-SQL的总结. [T-SQL基础]01.单表查询-几道sql查询题 [T-SQL基础] ...
- iOS FMDB的使用(增,删,改,查,sqlite存取图片)
iOS FMDB的使用(增,删,改,查,sqlite存取图片) 在上一篇博客我对sqlite的基本使用进行了详细介绍... 但是在实际开发中原生使用的频率是很少的... 这篇博客我将会较全面的介绍FM ...
- iOS sqlite3 的基本使用(增 删 改 查)
iOS sqlite3 的基本使用(增 删 改 查) 这篇博客不会讲述太多sql语言,目的重在实现sqlite3的一些基本操作. 例:增 删 改 查 如果想了解更多的sql语言可以利用强大的互联网. ...
- ADO.NET 增 删 改 查
ADO.NET:(数据访问技术)就是将C#和MSSQL连接起来的一个纽带 可以通过ADO.NET将内存中的临时数据写入到数据库中 也可以将数据库中的数据提取到内存中供程序调用 ADO.NET所有数据访 ...
- MVC EF 增 删 改 查
using System;using System.Collections.Generic;using System.Linq;using System.Web;//using System.Data ...
- 第18课-数据库开发及ado.net 连接数据库.增.删.改向表中插入数据并且返回自动编号.SQLDataReade读取数据
第18课-数据库开发及ado.net 连接数据库.增.删.改向表中插入数据并且返回自动编号.SQLDataReade读取数据 ADO.NET 为什么要学习? 我们要搭建一个平台(Web/Winform ...
- django ajax增 删 改 查
具于django ajax实现增 删 改 查功能 代码示例: 代码: urls.py from django.conf.urls import url from django.contrib impo ...
- StringBuilder修改字符串内容,增,删,改,插
package seday01;/** * 字符串不变对象特性只针对字符串重用,并没有考虑修改操作的性能.因此String不适合频繁修改内容. * 若有频繁修改操作,使用StringBuilder来完 ...
- python基础中的四大天王-增-删-改-查
列表-list-[] 输入内存储存容器 发生改变通常直接变化,让我们看看下面列子 增---默认在最后添加 #append()--括号中可以是数字,可以是字符串,可以是元祖,可以是集合,可以是字典 #l ...
随机推荐
- MySQL日志恢复误删记录
1.查询日志是否开启 show variables like"log_"; 2.查询是用的哪个日志文件 show master status; 3.定位是在什么时间误删的 /usr ...
- 51nod 1290 Counting Diff Pairs 莫队 + bit
一个长度为N的正整数数组A,给出一个数K以及Q个查询,每个查询包含2个数l和r,对于每个查询输出从A[i]到A[j]中,有多少对数,abs(A[i] - A[j]) <= K(abs表示绝对值) ...
- Centos6.4 用rpm方式安装MySql5.6
1.查看系统是否安装了MySQL 使用命令: #rpm -qa | grep mysql 2.卸载已安装的MySQL 卸载mysql命令如下: #rpm - ...
- php Base64编码/解码
一.PHP使用方法 //加密 $str = 'This is an encoded string'; echo base64_encode($str); //解密 $str = 'VGhpcyBpcy ...
- IOS跳转设置页面及其他各种跳转页面设置
转载来源 CocoaChina 跳到更多设置界面 除了跳到WiFi设置界面,能不能跳到其他的设置界面呢?比如:定位服务.FaceTime.音乐等等.都是可以的,一起来看看如何实现的! 定位服务 定位服 ...
- ForeignKey 的第二个位置参数on_delete
on_delete指的是通过ForeignKey连接起来的对象被删除后,当前字段怎么变化. 常见的选项有: models.CASCADE,对就对象删除后,包含ForeignKey的字段也会被删除 mo ...
- display:none与visibility: hidden的区别
display:none和visibility: hidden都能把网页上某个元素隐藏起来,但两者有区别: display:none ---不为被隐藏的对象保留其物理空间,即该对象在页面上彻底消失. ...
- Libevent 定时器
先摘一点网上的介绍 libevent是一个事件触发的网络库,适用于windows.linux.bsd等多种平台,内部使用select.epoll.kqueue等系统调用管理事件机制.著名分布式缓存软件 ...
- Yarn&Mapreduce参数的具体含义和配置参考
Yarn & Mapreduce 参数的具体含义和配置 http://zh.hortonworks.com/blog/how-to-plan-and-configure-yarn-in-hdp ...
- Java基础以及与C++的一些对比
这两天回忆一些Java基础,感觉自己很多地方都不是很牢固,也花费在不少时间和不少流量在手机上查资料. 还是写下来这些东西以免再忘记. 同时还是要记住多动手,编程最重要的就是动手敲啊,有想法有疑问就要自 ...