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'},'

 


免责声明!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系本站邮箱yoyou2525@163.com删除。



 
粤ICP备18138465号  © 2018-2025 CODEPRJ.COM