JSON 之 SuperObject(12): TSuperEnumerator、TSuperAvlIterator、ObjectFindFirst...
来源:互联网 发布:淘宝店铺地址格式 编辑:程序博客网 时间:2024/05/16 15:05
通过 ISuperObject.GetEnumerator 可获取一个 TSuperEnumerator 对象.
TSuperEnumerator 主要有: MoveNext 方法、Current 属性; 使用举例:
var
jo: ISuperObject;
e: TSuperEnumerator;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:[7,8,{m:9}]}]}');
e := jo.GetEnumerator;
while e.MoveNext do
begin
ShowMessage(e.Current.AsString);
end;
e.Free;
end;
//上面程序其实没有实用价值, 因为下面一句话就可以代替上面这些:
var
jo,i: ISuperObject;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:[7,8,{m:9}]}]}');
for i in jo do ShowMessage(i.AsString);
end;
同通过 TSuperEnumerator 枚举出的只有 Name:Value 中的 Value;
通过 TSuperAvlIterator 枚举出的是 TSuperAvlEntry 对象(其包含 Name 和 Value);
获取 TSuperAvlIterator 方法:
TSuperTableString.GetEnumerator 或者 ISuperObject.AsObject.GetEnumerator.
var
jo: ISuperObject;
ite: TSuperAvlIterator;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:7}]}');
ite := jo.AsObject.GetEnumerator;
ite.First;
ShowMessageFmt('%s : %s', [ite.Current.Name, ite.Current.Value.AsString]);
ite.Next;
ShowMessageFmt('%s : %s', [ite.Current.Name, ite.Current.Value.AsString]);
ite.Last;
ShowMessageFmt('%s : %s', [ite.Current.Name, ite.Current.Value.AsString]);
ite.Prior;
ShowMessageFmt('%s : %s', [ite.Current.Name, ite.Current.Value.AsString]);
ite.Free;
end;
ObjectFindFirst、ObjectFindNext、ObjectFindClose 是 SuperObject 给的另一种枚举元素的方式.
它用到了一个结构:
TSuperObjectIter = record
key: SOString;
val: ISuperObject;
Ite: TSuperAvlIterator;
end;
//应用举例:
var
jo: ISuperObject;
iter: TSuperObjectIter;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:7}]}');
if ObjectFindFirst(jo, iter) then
begin
repeat
ShowMessageFmt('%s - %s', [iter.key, iter.val.AsString]);
until not ObjectFindNext(iter);
end;
ObjectFindClose(iter);
end;
//或者:
var
jo: ISuperObject;
iter: TSuperObjectIter;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:7}]}');
if ObjectFindFirst(jo, iter) then
begin
repeat
ShowMessageFmt('%s - %s', [iter.Ite.Current.Name, iter.Ite.Current.Value.AsString]);
until not ObjectFindNext(iter);
end;
ObjectFindClose(iter);
end;
TSuperEnumerator 主要有: MoveNext 方法、Current 属性; 使用举例:
var
jo: ISuperObject;
e: TSuperEnumerator;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:[7,8,{m:9}]}]}');
e := jo.GetEnumerator;
while e.MoveNext do
begin
ShowMessage(e.Current.AsString);
end;
e.Free;
end;
//上面程序其实没有实用价值, 因为下面一句话就可以代替上面这些:
var
jo,i: ISuperObject;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:[7,8,{m:9}]}]}');
for i in jo do ShowMessage(i.AsString);
end;
同通过 TSuperEnumerator 枚举出的只有 Name:Value 中的 Value;
通过 TSuperAvlIterator 枚举出的是 TSuperAvlEntry 对象(其包含 Name 和 Value);
获取 TSuperAvlIterator 方法:
TSuperTableString.GetEnumerator 或者 ISuperObject.AsObject.GetEnumerator.
var
jo: ISuperObject;
ite: TSuperAvlIterator;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:7}]}');
ite := jo.AsObject.GetEnumerator;
ite.First;
ShowMessageFmt('%s : %s', [ite.Current.Name, ite.Current.Value.AsString]);
ite.Next;
ShowMessageFmt('%s : %s', [ite.Current.Name, ite.Current.Value.AsString]);
ite.Last;
ShowMessageFmt('%s : %s', [ite.Current.Name, ite.Current.Value.AsString]);
ite.Prior;
ShowMessageFmt('%s : %s', [ite.Current.Name, ite.Current.Value.AsString]);
ite.Free;
end;
ObjectFindFirst、ObjectFindNext、ObjectFindClose 是 SuperObject 给的另一种枚举元素的方式.
它用到了一个结构:
TSuperObjectIter = record
key: SOString;
val: ISuperObject;
Ite: TSuperAvlIterator;
end;
//应用举例:
var
jo: ISuperObject;
iter: TSuperObjectIter;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:7}]}');
if ObjectFindFirst(jo, iter) then
begin
repeat
ShowMessageFmt('%s - %s', [iter.key, iter.val.AsString]);
until not ObjectFindNext(iter);
end;
ObjectFindClose(iter);
end;
//或者:
var
jo: ISuperObject;
iter: TSuperObjectIter;
begin
jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:7}]}');
if ObjectFindFirst(jo, iter) then
begin
repeat
ShowMessageFmt('%s - %s', [iter.Ite.Current.Name, iter.Ite.Current.Value.AsString]);
until not ObjectFindNext(iter);
end;
ObjectFindClose(iter);
end;
0 0
- JSON 之 SuperObject(12): TSuperEnumerator、TSuperAvlIterator、ObjectFindFirst...
- JSON 之 SuperObject(1)
- JSON 之 SuperObject(1)
- JSON 之 SuperObject(3): 访问
- JSON 之 SuperObject(6): 方法
- JSON 之 SuperObject(9): TSuperType
- JSON 之 SuperObject(3): 访问
- JSON 之 SuperObject(4): 增、删、改
- JSON 之 SuperObject(10): Merge、Clone、ForcePath
- JSON 之 SuperObject(13): 关于 SO 与 SA 函数
- JSON 之 SuperObject(2): 构建方式与 AsJSon
- JSON 之 SuperObject(5): Format 与转义字符
- JSON 之 SuperObject(7): 可以省略的双引号
- JSON 之 SuperObject(14): 从 XML 中解析
- JSon SuperObject 研究
- SuperObject的JSON使用方法
- SuperObject
- Delphi7下SuperObject的JSON使用方法
- 第23讲项目3——两段函数求值
- Linux调优常用命令
- 数据库索引
- java 反射
- <LeetCode OJ> 110. Balanced Binary Tree
- JSON 之 SuperObject(12): TSuperEnumerator、TSuperAvlIterator、ObjectFindFirst...
- A*搜索算法
- spring aop报错:Cannot proxy target class because CGLIB2 is not available.
- JSON 之 SuperObject(1)
- Web 开发工具类(1): CookieUtils
- linux内核read操作源代码分析
- QT中QWidget、QDialog及QMainWindow的区别
- JSON 之 SuperObject(2): 构建方式与 AsJSon
- E-easy problem