两种常用SuperObject的遍历

最新推荐文章于 2024-03-31 15:04:26 发布

原创最新推荐文章于 2024-03-31 15:04:26 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#json #delphi #遍历

delphi 同时被 2 个专栏收录

54 篇文章

订阅专栏

json

3 篇文章

订阅专栏

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

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;