superobject使用方法

Posted 咏南中间件和开发框架

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了superobject使用方法相关的知识,希望对你有一定的参考价值。

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;
  ShowMessage(IntToStr(jts.count));    // 4
  ShowMessage(jts.GetNames.AsString);  // ["D","C","B","A"]
  ShowMessage(jts.GetValues.AsString); // [{"z":6,"y":5,"x":4},3,2,1]

  jts := jo[‘D‘].AsObject;
  ShowMessage(IntToStr(jts.count));    // 3
  ShowMessage(jts.GetNames.AsString);  // ["z","y","x"]
  ShowMessage(jts.GetValues.AsString); // [6,5,4]
end;

使用FOR...IN...遍历子对象,不适用于DELPHI7等低版本,因为它们不支持此语法。

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;

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;
  while ite.MoveNext do
  begin
  lname := ite.Current.Name;
  lvalue := ite.Current.Value.AsString;
  ite.Next;
  end;

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;

 

以上是关于superobject使用方法的主要内容,如果未能解决你的问题,请参考以下文章

delphi 使用superobject实现jsonrpc的http远程调用 good

superobject 设定排序方式

SuperObject生成示例

Delphi7通过superobject解析JSON

Delphi中JSon SuperObject 使用:数据集与JSON对象互转

delphi 7 superobject控件如何遍历子对象