superobject 遍历-CSDN博客

本文链接：https://blog.csdn.net/lypingfan/article/details/120791892

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近在处理贯标的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;