相关资料:http://www.cnblogs.com/del/archive/2009/10/23/1588690.html Delphi2007源代码: procedure TForm1.Button1Click(Sender: TObject); var jo: ISuperObject; item: ISuperObject; begin jo := SO(Memo1.Text); for item in jo do Showmessage(item.asjson(false,false

相关资料:http://www.cnblogs.com/del/archive/2009/10/23/1588690.html 问题现象:在高版本中可以使用IN处理JSON的节点循环问题,可是发现D7不支持. 问题处理: Delphi2007源代码: procedure TForm1.Button1Click(Sender: TObject); var jo: ISuperObject; item: ISuperObject; begin jo := SO(Memo1.Text); for it

DELPHI7下SUPPEROBJECT遍历子对象的name和value var ite: TSuperAvlIterator; while ite.MoveNext do begin if ite.Current.Name = 'table' then begin tablename := ite.Current.Value.AsString; // 取表名 end else begin if lname = '' then lname := ite.Current.Name else lna

uses superobject; procedure TForm1.FormCreate(Sender: TObject); var aJson: ISuperObject; aSuperArray: TSuperArray; i:Integer; begin {1.赋初值} aJson:=SO('{"zoo":"涂磊动物园","animals":[{"name":"猴子","year"

1.通过delphi程序访问PHP事先写好的webservice(查询功能),webservice返回json格式数据. 2.通过superobject读取json数据 得到效果如下: //深层级的访问 jo:=SO('{"datalist":{"username":"admin","name":"管理","sex":"男"}}'); if   jo['datalis

superobject使用方法 ISuperObject.AsObject 可获取一个 TSuperTableString 对象. TSuperTableString 的常用属性: count.GetNames.GetValues var   jo: ISuperObject;   jts: TSuperTableString; begin   jo := SO('{A:1, B:2, C:3, D:{x:4, y:5, z:6}}');   jts := jo.AsObject;   Show

前言: 1.公司delphi7开发的传统软件还活得好好的,但是大家都知道delphi早已经日落西山了,现在成了后进.追随者.细细算了已经6.7不用了.新的delphixe7呢,没有时间成本去适应和研究. 由于大量使用了第3方的组件和控件,想升级估计是吃力不讨好的事情... 2.保留原有代码,开发新功能可调用远程主机(云主机)的REST ful风格的api,使用Json交换数据.这样就赶上了新潮流,复活了. 由于网上搜索了很多次,发现符合需求的文章很少,这里记录下来,授人以鱼吧. delphi7使

测试数据提前加入 Memo1 中: 代码文件: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Button2: TButton;     Button

JSON 之 SuperObject(11): TSuperTableString.TSuperAvlEntry - 万一 - 博客园http://www.cnblogs.com/del/archive/2009/10/27/1590501.html 通过 ISuperObject.AsObject 可获取一个 TSuperTableString 对象. TSuperTableString 的常用属性: count.GetNames.GetValues var   jo: ISuperObjec

Delphi 的 ISuperObject 属性顺序为随机.但是很多时候,是需要按加入顺序进行读取.我也看了网上很多人有类似需求.也有人问过原作者,作者答复为:JSON协议规定为无序.看了我真是无语. 也看过网上一些人自己的修改,但是修改后有两个问题(网上的方法都不好,只能自己动手了): 1. 性能急剧下降.原作者是用二叉树对性能做了极大的优化.但是网上修改的方法性能不行. 2. 属性数大于 32 时会出错.(原来用的是二叉树,修改后部分算法未修改,导致此问题). 我采用的是重写遍历器的方法,和

// SUPEROBJECT 序列数据集 cxg 2017-1-12// {"data":[{"c1":1,"c2":1}]};// DELPHI7 适用 unit superobjectDB; interface uses SysUtils, db, DBClient, superobject, EncdDecd, Classes, Httpapp; // {"data":[{"c1":1,"c

容器的主要职责有两个:存放元素和浏览元素.根据单一职责原则(SRP)要将二者分开,于是将浏览功能打包封装就有了迭代器. 用迭代器封装对动态数组的遍历:  1  2{<HeadFirst设计模式>之迭代器模式 }  3{ 容器中的元素类                  }  4{ 编译工具:Delphi7.0             }  5{ E-Mail :guzh-0417@163.com     }  6  7unit uItem;  8  9interface 10 11type 1

简单来讲述一些XML吧,XML是可扩展标记语言,是一种用于标记电子文件使其具有结构性的标记语言.XML是当今用于传输数据的两大工具之一,另外一个是json. 我们在PHP中使用XML也是用来传输数据,因此在接收到XML的时候,仅仅是一大串有结构性的字符串. 在PHP中内置有两大扩展模块是用于处理XML的,分别是DOM扩展.SimpleXML扩展.在这里就讲解一些如何使用SimpleXML. SimpleXML 函数是 PHP 核心的组成部分.无需安装即可使用这些函数. 接下来使用一个例子来进行讲

到 0 的权是 91 到 2 的权是 31 到 3 的权是 61 到 4 的权是 7 2 到 0 的权是 22 到 3 的权是 5 3 到 0 的权是 33 到 4 的权是 1 4 到 2 的权是 2 0 到 4 的权是 6 遍历思路:线性数组存放着[v0,v1,v2,v3,v4]从0号元素开始 i=0:打印出v0,0入队0出队,去查找v0的邻接表,找到了v4打印出v4,4入队4出队,去查找v4的邻接表,找到了v2打印出v2,2入队2出队,去查找v2的邻接表,找到了v0,v3,因为v0是已访问过

这是一个有向边带权的图 顶点数组:[v0, v1, v2, v3, v4] 边数组: v0 v1 v2 v3 v4 v0 6 v1 9 3 v2 2 5 v3 1 v4 package com.datastruct; import java.util.Scanner; public class MGraph { //定义图结构,使用邻接矩阵存储 private static class Graph{ final ;//最大顶点数 final ; // 用65535来代表无穷 String vex

以这颗树为例:#表示空节点前序遍历(根->左->右)为:ABD##E##C#F## 中序遍历(左->根->右)为:#D#B#E#A#C#F# 后序遍历(左->右->根)为:##D##EB###FCA #include <stdio.h> #include <stdlib.h> typedef char TElemType; typedef struct BiTNode { TElemType data; struct BiTNode *lchil

ArrayList与LinkedList的普通for循环遍历 对于大部分Java程序员朋友们来说,可能平时使用得最多的List就是ArrayList,对于ArrayList的遍历,一般用如下写法: public static void main(String[] args) { List<Integer> arrayList = new ArrayList<Integer>(); for (int i = 0; i < 100; i++) { arrayList.add(i)

一.遍历ExpandoObject /// <summary> /// 遍历ExpandoObject /// </summary> [TestMethod] public void GoThroughExpandoObject() { dynamic dynEO = new ExpandoObject(); dynEO.number = ; dynEO.Increment = new Action(() => { dynEO.number++; }); Console.Wr

图的遍历的定义: 从图的某个顶点出发访问遍图中所有顶点,且每个顶点仅被访问一次.(连通图与非连通图) 深度优先遍历(DFS): 1.访问指定的起始顶点: 2.若当前访问的顶点的邻接顶点有未被访问的,则任选一个访问之:反之,退回到最近访问过的顶点:直到与起始顶点相通的全部顶点都访问完毕: 3.若此时图中尚有顶点未被访问,则再选其中一个顶点作为起始顶点并访问之,转 2: 反之,遍历结束. 连通图的深度优先遍历类似于树的先根遍历 如何判别V的邻接点是否被访问? 解决办法:为每个顶点设立一个“访问标志”

题目如下: 题目给出的例子不太好,容易让人误解成不断顺着右节点访问就好了,但是题目意思并不是这样. 换成通俗的意思:按层遍历二叉树,输出每层的最右端结点. 这就明白时一道二叉树层序遍历的问题,用一个队列来处理,但是问题是怎么来辨别每层的最右端结点,我思考了半天,最后想出的办法是利用一个标记位,例如上面的例子: q代表队列,f代表标记结点,right代表记录的最右端结点 q: 1 flag right:{} q: flag 2 3 遇到标记位所以移动标记位,并将队头弹出的数据存起来如下 q: 2