superobject 遍历

最新推荐文章于 2025-09-14 11:37:04 发布

原创最新推荐文章于 2025-09-14 11:37:04 发布 · 749 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

Delphi-基础专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一段Delphi代码，用于遍历和解析JSON数据。通过SuperObject库，函数`pAnalysisOutput`和`pAnalysisOutput_array`递归处理JSON对象和数组，将数据保存到BllParam类型的记录数组中。该代码适用于处理包含嵌套结构的JSON数据。

最近在处理贯标的JSON数据，为了全部遍历所有的数据。

使用SuperObject.


{
type
  BllParam = record
    sParamName: string;
    sParanAlias: string;
    sParamvalue: string;
    sparsmvalueAlias: string;
    sNode: string;
    iParamType: TFieldType; //
  end;

  arrayBllParam = array of BllParam;
}

function TGBiao.pAnalysisOutput_array(var aprs: arrayBllParam; aOstr: string; aRoot: string): arrayBllParam;
var
  jo, iTEMjo: ISuperObject;
  N: Integer;
begin
  jo := SO(aOstr);
  for N := 0 to jo.AsArray.Length - 1 do
  begin
    jo.AsArray.O[N];
    pAnalysisOutput(aprs,jo.AsArray.O[N].AsString,aRoot);
  end;
end;

function TGBiao.pAnalysisOutput(var aprs: arrayBllParam; aOstr: string; aRoot: string): arrayBllParam;
var
  jo: ISuperObject;
  item: TSuperObjectIter;
begin
  jo := SO(aOstr);
  if ObjectFindFirst(jo, item) then
    repeat
      if item.val.IsType(stObject) then
        pAnalysisOutput(aprs, item.val.AsString, item.key)
      else if item.val.IsType(stArray) then
        pAnalysisOutput_array(aprs, item.val.AsString, item.key)
      else
      begin
//        WriteLog(FMemo, Format('key: %s; val: %s', [item.key, item.val.AsString]));
        GBCODEConver(aprs, aRoot, item.key, item.val.AsString, item.key); --将数据保存到aprs中。
      end;
    until not ObjectFindNext(item);
  ObjectFindClose(item);
end;