两种常用SuperObject的遍历

最新推荐文章于 2023-04-24 17:24:39 发布

得码刘永锋

最新推荐文章于 2023-04-24 17:24:39 发布

阅读量1k

点赞数

分类专栏： delphi json 文章标签： json delphi 遍历

本文链接：https://blog.csdn.net/lyf_lyf/article/details/113666487

版权

delphi 同时被 2 个专栏收录

54 篇文章 0 订阅

订阅专栏

json

3 篇文章 0 订阅

订阅专栏

本文展示了如何使用ISuperObject解析Memo1中的数据，通过`SO`函数将文本转换为对象，并使用循环逐个提取item的信息，包括名称和值。实例演示了如何将数据以JSON格式输出到Memo2中。

摘要由CSDN通过智能技术生成

memo1.text := {"MYGUID":"s3","存款金额":30000.,"规格表示":null}
例子1:
var
 item, jo: ISuperObject;
begin
  jo := SO(Memo1.Text);
  for item in jo do
  begin
    Memo2.Lines.Add(item.AsJSon(False, False));
  end;
end;
例子2:
var
  jo: ISuperObject;
  item: TSuperAvlEntry;
begin
  jo := SO(Memo1.Text);
  for item in jo.AsObject do
  begin
    Memo2.Lines.Add(item.name);
    Memo2.Lines.Add(item.value.AsString);
  end;
end;