zoukankan      html  css  js  c++  java
  • delphi superobject解析复杂json

    var
      JO, JO1, JO2, JRec: ISuperObject;
      JA1,JA2:TSuperArray;
      JT:TSuperAvlTree;
      JTI:TSuperAvlIterator;
      iCount,iField:integer;
    begin
      JT := SO(memo1.lines.text).A['result'][0].AsObject;
      iCount := JT.count;
          //ShowMessage(inttostr(iCount));
      if iCount > 0 then
        JTI := JT.GetEnumerator;
      jti.First;
      if JTI.Current <> nil then
      begin
        JO1 := JTI.Current.Value;
        //ShowMessageFmt('%s %s %s %f', [JTI.Current.name, JO1.S['date'], JO1.S['time'], JO1.C['bankConversionPri']]);
        Memo2.Lines.Add(JTI.Current.name+JO1.S['date']+ JO1.S['time']+ '  汇率:'+JO1.S['bankConversionPri']);
        while JTI.MoveNext do
        begin
          JO1 := JTI.Current.Value;
          //ShowMessageFmt('%s %s %s %f', [JTI.Current.name, JO1.S['date'], JO1.S['time'], JO1.C['bankConversionPri']]);
          Memo2.Lines.Add(JTI.Current.name+JO1.S['date']+ JO1.S['time']+ '  汇率:'+JO1.S['bankConversionPri']);
        end;
      end;
    end;
    

      

    '{'
          #9'"error_code": 0,'
          #9'"resultcode": "200",'
          #9'"reason": "SUCCESSED!",'
          #9'"result": ['
          #9#9'{'
          #9#9#9'"'#32654#20803'": {'
          #9#9#9#9'"bankConversionPri": "699.8200",'
          #9#9#9#9'"date": "2020-07-15",'
          #9#9#9#9'"fBuyPri": "698.9300",'
          #9#9#9#9'"fSellPri": "701.9000",'
          #9#9#9#9'"mBuyPri": "693.2500",'
          #9#9#9#9'"mSellPri": "701.9000",'
          #9#9#9#9'"name": "'#32654#20803'",'
          #9#9#9#9'"time": "11:30:02"'
          #9#9#9'},'
          #9#9#9'"'#27431#20803'": {'
          #9#9#9#9'"bankConversionPri": "798.4700",'
          #9#9#9#9'"date": "2020-07-15",'
          #9#9#9#9'"fBuyPri": "795.7400",'
          #9#9#9#9'"fSellPri": "801.6100",'
          #9#9#9#9'"mBuyPri": "771.0200",'
          #9#9#9#9'"mSellPri": "804.1900",'
          #9#9#9#9'"name": "'#27431#20803'",'
          #9#9#9#9'"time": "11:30:02"'
          #9#9#9'},'
          #9#9#9'"'#28207#24065'": {'
          #9#9#9#9'"bankConversionPri": "90.2800",'
          #9#9#9#9'"date": "2020-07-15",'
          #9#9#9#9'"fBuyPri": "90.1700",'
          #9#9#9#9'"fSellPri": "90.5300",'
          #9#9#9#9'"mBuyPri": "89.4600",'
          #9#9#9#9'"mSellPri": "90.5300",'
          #9#9#9#9'"name": "'#28207#24065'",'
          #9#9#9#9'"time": "11:30:02"'
          #9#9#9'},'
  • 相关阅读:
    [转]使用Composer管理PHP依赖关系
    Php环境下载(PHPNow)安装
    精美的 ( Android, iPhone, iPad ) 手机界面设计素材和线框图设计工具
    八款强大的jQuery图片滑块动画插件
    JavaScript prototype.js提升JavaScript开发效率
    JS Message 网页消息提醒
    Vis.js图表插件
    动态算法学习
    GPS功能:百度路书自定义【轨迹回放】
    CSS美化页面滚动条
  • 原文地址:https://www.cnblogs.com/zyb2016/p/13330115.html
Copyright © 2011-2022 走看看