JSON 之 SuperObject(4): 增、删、改
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.
JSON 之 SuperObject(4): 增、删、改的更多相关文章
- django ajax增 删 改 查
具于django ajax实现增 删 改 查功能 代码示例: 代码: urls.py from django.conf.urls import url from django.contrib impo ...
- 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 ...
- StringBuilder修改字符串内容,增,删,改,插
package seday01;/** * 字符串不变对象特性只针对字符串重用,并没有考虑修改操作的性能.因此String不适合频繁修改内容. * 若有频繁修改操作,使用StringBuilder来完 ...
- python基础中的四大天王-增-删-改-查
列表-list-[] 输入内存储存容器 发生改变通常直接变化,让我们看看下面列子 增---默认在最后添加 #append()--括号中可以是数字,可以是字符串,可以是元祖,可以是集合,可以是字典 #l ...
随机推荐
- xp/2003开关3389指令
开启3389: @echo offtitle 开启3389clsrem 开启3389reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\ ...
- 远程数据源Combobox
Ext.define('bookInfo', { extend: 'Ext.data.Model',//新类继承自model fields: [{ name: 'b ...
- Javascript里的那些距离们
1.有滚动条的控件的距离: scrollTop和scrollLeft:分别指有滚动条的容器控件的滚动条的top和left:页面滚动条的通用取法:document.body.scrollTop(FF\C ...
- sqlite函数大全
abs(X) 返回参数X的绝对值. coalesce(X,Y,...) 返回第一个非空参数的副本.若所有的参数均为NULL,返回NULL.至少2个参数. glob(X,Y) 用于实现SQLite的 ...
- POJ 2484
A Funny Game Time Limit: 1000MS Memory Limit: 65536K Total Submissions: 3861 Accepted: 2311 Desc ...
- POJ 3255
Roadblocks Time Limit: 2000MS Memory Limit: 65536K Total Submissions: 6605 Accepted: 2458 Descri ...
- POJ 2014
#include <iostream> using namespace std; int main() { //freopen("acm.acm","r&qu ...
- 【OpenCV入门教程之二】 一览众山小:OpenCV 2.4.8组件结构全解析
转自: http://blog.csdn.net/poem_qianmo/article/details/19925819 本系列文章由zhmxy555(毛星云)编写,转载请注明出处. 文章链接:ht ...
- BZOJ 1452: [JSOI2009]Count 二维树状数组
1452: [JSOI2009]Count Description Input Output Sample Input Sample Output 1 2 HINT Source 题解:设定C[101 ...
- 关于null == 0?返回false的问题
1.首先我们先看各种情况的结果: null > 0? //=>false null < 0? //=>false null >= 0? //=>true null ...