delphi中创建JSON字符串

这是在Delphi中创建JSON字符串的方法。

使用TJSONObject创建键/值对。

uses Data.DBXJSON;

var

JSON: TJSONObject;

begin

JSON := TJSONObject.Create;

JSON.AddPair('name', 'John Smith');

JSON.AddPair('age', '33');

Memo1.Lines.Text := JSON.ToString; //=> {"name":"John Smith","age":"33"}

JSON.Free;

将数字用作值时，请使用TJSONNumber。

TJSONNumber创建接受Double，Integer，Int64，字符串。

uses Data.DBXJSON;

var

JSON: TJSONObject;

begin

JSON := TJSONObject.Create;

JSON.AddPair('Double', TJSONNumber.Create(123.456));

JSON.AddPair('Integer', TJSONNumber.Create(789));

JSON.AddPair('string', TJSONNumber.Create('1000'));

Memo1.Lines.Text := JSON.ToString; //=> {"Double":123.456,"Integer":789,"string":1000}

JSON.Free;

使用TJSONTrue和TJSONFalse来使用布尔值。

uses Data.DBXJSON;

var

JSON: TJSONObject;

begin

JSON := TJSONObject.Create;

JSON.AddPair('真', TJSONTrue.Create);

JSON.AddPair('偽', TJSONFalse.Create);

Memo1.Lines.Text := JSON.ToString; //=> {"真":true,"假":false}

JSON.Free;

使用TJSONArray创建一个数组。

uses Data.DBXJSON;

var

JSONArray: TJSONArray;

begin

JSONArray := TJSONArray.Create;

JSONArray.Add('milk');

JSONArray.Add('bread');

JSONArray.Add('eggs');

Memo1.Lines.Text := JSONArray.ToString; //=> ["milk","bread","eggs"]

JSONArray.Free;

推荐分享