json - 如何正确地将非字符串值添加到 TJSONObject？

Question

使用 TJSONObject，我注意到它的 AddPair 函数具有以下重载:

function AddPair(const Pair: TJSONPair): TJSONObject; overload;
function AddPair(const Str: TJSONString; const Val: TJSONValue): TJSONObject; overload;
function AddPair(const Str: string; const Val: TJSONValue): TJSONObject; overload;
function AddPair(const Str: string; const Val: string): TJSONObject; overload;

特别是，我注意到添加非字符串值(例如整数、日期时间...)不会出现重载。由于这个原因，调用ToString函数，每个值都显示为双引号:

{"MyIntegerValue":"100"}

根据我在 this 中读到的内容答案是，它违反了非字符串值的 JSON 标准。应该如何将非字符串值添加到 TJSONObject 中？

Answer 1

您可以使用 TJSONNumber 和使用 TJSONValue 的 AddPair 重载来创建数字 JSON 值，如下所示:

program Project1;

{$APPTYPE CONSOLE}

uses
  System.SysUtils, System.JSON;

var
  JSON: TJSONObject;
begin
  JSON := TJSONObject.Create;
  try
    JSON.AddPair('MyIntegerValue', TJSONNumber.Create(100));
    writeln(JSON.ToString);
    readln;
  finally
    JSON.Free;
  end;
end.

输出{"MyIntegerValue":100}

这也是 help 的代码示例中的完成方式.