lazarus的json

2021-07-29 14:01:59 阅读：257 来源： 互联网

标签：Integers Const Arrays Add json lazarus TJsonObject o1

uses fpjson, jsonparser;一定要usejsonparser单元，才会自动创建handler。

方法与jsonobject几乎一样，但是没有那么方便，特别是在数组问题。

也没有LoadFromFile和SaveToFile，需要另外实现，不过带了GetJson函数。

1 Function GetJSON(Const JSON : TJSONStringType;Const UseUTF8 :Boolean =True) : TJSONData;
2 Function GetJSON(Const JSON : TStream;Const UseUTF8 :Boolean =True) : TJSONData;

fpjson数组的操作

procedure TForm1.Button1Click(Sender: TObject);
var
  o: TJsonObject;
  a: TJsonArray;
  o1: TJsonObject;

  i: Integer;
begin
  o := TJsonObject.Create;
  o.Integers['i'] := 123;
  o.Strings['s'] := 'abc';

  o.Integers['i'] := 345;

  a := TJsonArray.Create();

  o1 := TJsonObject.Create;
  o1.Integers['i'] := 11;
  o1.Integers['j'] := 21;
  o1.Integers['k'] := 31;

  //添加数组
  a.Add(o1);

  o1 := TJsonObject.Create;
  o1.Integers['i'] := 12;
  o1.Integers['j'] := 22;
  o1.Integers['k'] := 32;

  //添加数组
  a.Add(o1);

  o.Add('a', a);

  Memo1.Lines.Add(o.AsJSON);

  Memo1.Lines.Add('%d', [o.Arrays['a'].Count]);

  //读数组内容
  for i := 0 to o.Arrays['a'].Count - 1 do
  begin
    Memo1.Lines.Add('i=%d,j=%d,k=%d', [o.Arrays['a'].Objects[i].Integers['i'],  o.Arrays['a'].Objects[i].Integers['j'], o.Arrays['a'].Objects[i].Integers['k']    ]);
  end;


  FreeAndNil(o);
end;

标签：Integers,Const,Arrays,Add,json,lazarus,TJsonObject,o1
来源： https://www.cnblogs.com/Thenext/p/15074724.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

lazarus的json