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