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;
 

相关阅读 >>

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi richedit中插入带背景色文本的一种思路

Delphi pchar与string互转

Delphi idhttp读取网页重定向

Delphi 深入了解unigui hyperserver

Delphi 中的split 函数

Delphi制作手机签名app（windows同样适用）

Delphi操作ini配置文件

Delphi 判断字符串是否包含汉字，正则版和非正则版

Delphi在case语句中使用字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中创建JSON字符串