SuperObject （String To TSuperArray)

最新推荐文章于 2024-05-15 16:03:16 发布

caidaqin001

最新推荐文章于 2024-05-15 16:03:16 发布

阅读量1.2k

点赞数 2

分类专栏： delphi

本文链接：https://blog.csdn.net/caidaqin001/article/details/103976957

版权

delphi 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

Demo1：

productList := '[{"area":"全国","isp":"移动","amount":"10","productId":"20216"},'
+ '{"area":"全国","isp":"联通","amount":"10","productId":"20325"}]';

productArray := SO(F_query.productList).AsArray;
for i := 0 to productArray.Length-1 do
begin
txt_log('遍历产品编码：' + productArray[i].S['productId']);
end;

Demo2：

productList := '{"productList":[{"area":"全国","isp":"移动","amount":"10","productId":"20216"},'
+ '{"area":"全国","isp":"联通","amount":"10","productId":"20325"}]}';

productArray := SO(F_query.productList).N['productList'].AsArray;
for i := 0 to productArray.Length-1 do
begin
txt_log('遍历产品编码：' + productArray[i].S['productId']);
end;