Delphi10.2.3解决的一个JSON问题

本文整理自网络，侵删。

 
发现在Delphi 10.1.2上，下面的代码生成的JSON串不对：
procedure TForm2.btn1Click(Sender: TObject);
var
  jo:TJSONObject;
  s:string;
begin
  jo:=TJSONObject.Create;
  jo.AddPair('test','');
  s:=jo.ToJSON;
  ShowMessage(s);
end;
换到Delphi 10.2.3下，则正常输出：
'{"test":""}'

查看代码，发现10.2.3是这样实现的：
function TJSONObject.AddPair(const Str: string; const Val: string): TJSONObject;
begin
  if (not Str.IsEmpty) then
    AddPair(TJSONPair.Create(Str, Val));
  Result := Self;
end;
而10.1.2是这样实现的：
function TJSONObject.AddPair(const Str: string; const Val: string): TJSONObject;
begin
  if (not Str.IsEmpty) and (not Val.IsEmpty) then
    AddPair(TJSONPair.Create(Str, Val));
  Result := Self;
end;

明显是10.1.2的bug,还好在新版本中修正了！

http://blog.sina.com.cn/s/blog_44fa172f0102x3i5.html
 

相关阅读 >>

Delphi png 图片的十六进制字符流

Delphi getprocessidentity 获取当前登录状态的管理员

Delphi在memorystream查找字符串

Delphi判断线程是否正在运行

Delphi获取千千静听歌词下载地址源码

Delphi获取jpg、gif、png等格式图片的大小（高度和宽度）

Delphi 防止程序重复执行的单元

Delphi char string

Delphi里实现对图片base64编码解码

Delphi释放内存一般这么写

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

转载请注明出处：木庄网络博客 » Delphi10.2.3解决的一个JSON问题