TSuperEnumerator、TSuperAvlIterator、ObjectFindFirst
2024-08-26 08:36:12
通过 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;
最新文章
- 3.使用CXF开发webService
- UEditor 1.4.3.1.NET版本上传配置备忘录
- Androidstudio的快捷键
- android模拟器打开时比较慢,Run As就找不到模拟器
- ionic初体验
- hrbustoj 1985(进制转换函数)
- golang从简单的即时聊天来看架构演变
- 数组遍历for forEach for..in for..of
- [UE4]Circular Throbber,圆形的、环形的动态图标
- 客户机容易随机出现自动重启、游戏卡问题?不妨优化下BIOS中节能技术!
- android搜索框列表布局,流程及主要步骤思维导图
- multiple definition of XXX情况分析
- IE (第一部分) 浏览器 中 关于浏览器模式和文本模式的困惑
- backbone的对象继承实现
- jQuery----左侧导航栏面板切换实现
- long int double float
- TMG阵列部署选择
- $.when()方法翻译2
- CentOS 6.9/7安装Parse+PostgreSQL
- Nuxt.js开启SSR渲染快速入门