Delphi 读取Json操作备忘

最新推荐文章于 2023-01-30 12:38:35 发布

OK_boom

最新推荐文章于 2023-01-30 12:38:35 发布

阅读量757

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/rocklee/article/details/93487128

版权

Delphi 专栏收录该内容

26 篇文章

订阅专栏

{"a":3.1415926,"rows":
[{"f1":"aa","f2":1234},
{"f1":"bb","f2":3.122}]}

var
  lvJson, lvJsonItem: TJSONObject;
  lvRows: TJSONArray;
  lvfVal: Double;
  i: integer;
begin
  lvJson := TJSONObject.ParseJSONValue(Memo1.Lines.text, true) as TJSONObject;
  lvRows := lvJson.GetValue('rows') as TJSONArray;
  for i := 0 to lvRows.Count - 1 do
  begin
    lvJsonItem := (lvRows.Items[i] as TJSONObject);
    lvfVal := (lvJsonItem.Values['f2'] as TJSONNumber).AsDouble;
    Memo2.Lines.Add(lvJsonItem.Values['f1'].ToString + floattostr(lvfVal));
  end;
  lvJson.Destroy;
end;