SoftHub关联区 - lazarus 与 json - CLQ工作室提供技术支持

您的位置：首页 >> SoftHub关联区 >> 主题: lazarus 与 json [回主站] [分站链接]

您的位置：首页 >> SoftHub关联区 >> 主题: lazarus 与 json [最新] [回主站]

lazarus 与 json

clq

浏览(353) - 2023-07-22 13:43:49 发表编辑

关键字:

lazarus 与 json

原来就有一个帖子，不过这次的是官方文档。

http://newbt.net/ms/vdisk/show_bbs.php?id=2F89D0BD9798007DA73EA08ECCB6DF67&pid=160

--------------------------------------------------------
官方文档为

https://wiki.lazarus.freepascal.org/JSON/zh_CN
https://wiki.lazarus.freepascal.org/fcl-json

以下是其中的一个示例，其实链接中有很多个示例。

uses
fpjson, jsonparser;

procedure JSONTest;
var
jData : TJSONData;
jObject : TJSONObject;
jArray : TJSONArray;
s : String;
begin
// this is only a minimal sampling of what can be done with this API

// create from string
jData := GetJSON('{"Fld1" : "Hello", "Fld2" : 42, "Colors" : ["Red", "Green", "Blue"]}');

// output as a flat string
s := jData.AsJSON;

// output as nicely formatted JSON
s := jData.FormatJSON;

// cast as TJSONObject to make access easier
jObject := jData as TJSONObject;

// retrieve value of Fld1
s := jObject.Get('Fld1');

// change value of Fld2
jObject.Integers['Fld2'] := 123;

// retrieve the second color
s := jData.FindPath('Colors[1]').AsString;

// add a new element
jObject.Add('Happy', True);

// add a new sub-array
jArray := TJSONArray.Create;
jArray.Add('North');
jArray.Add('South');
jArray.Add('East');
jArray.Add('West');
jObject.Add('Directions', jArray);

end;

Note: it's necessary to free jData when you have finished with it. Otherwise a memory leak is created.

总数：0　页次：1/0　首页尾页　　

所在合集/目录

发表评论:

本帖子属于以下条目()

NEWBT官方QQ群1: 276678893
可求档连环画,漫画;询问文本处理大师等软件使用技巧;求档softhub软件下载及使用技巧.
但不可"开车",严禁国家敏感话题,不可求档涉及版权的文档软件.
验证问题说明申请入群原因即可.