Delphi XE DBX 序列化Json的bug

最新推荐文章于 2024-09-02 20:32:20 发布

火星牛

最新推荐文章于 2024-09-02 20:32:20 发布

阅读量3.1k

点赞数

分类专栏： delphi开发文章标签： delphi json function c

本文链接：https://blog.csdn.net/acrodelphi/article/details/7287712

版权

delphi开发专栏收录该内容

73 篇文章

订阅专栏

探讨 Delphi 在不同版本中对 JSON 数据序列化的处理差异，特别是对特殊字符如双引号和斜杠的转义问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

delphi XE Update1 15.0.3953.35171

序列化一个阵列，如下：

procedure TForm1.Button2Click(Sender: TObject);
var
  vObject:TJsonObject;
  vPair:TJsonPair;
begin
  vObject:=TJsonObject.Create();
  vPair:=TJsonPair.Create('Name','A"B\''C中国');
  vObject.AddPair(vPair);
  Edit1.Text:=vObject.ToString;
end;

得到的结果为：{"Name":"A"B\'C中国"}

很明显结果是错的，双引号没有转义。查找代码，发现是这个地方的错误：

DBXJSON.pas
function TJSONString.ToString: UnicodeString;
begin
  if FStrBuffer <> nil then
    Exit('"' + FStrBuffer.ToString + '"');
  Result := NullString;
end;

居然QuotedStr函数都没有用，更别谈斜杠的转义。

在Delphi XE2 update 3 16.0.4358.45540 版本，发现代码修改了：

function TJSONString.ToString: UnicodeString;
begin
  if FStrBuffer <> nil then
    Exit('"' + AnsiReplaceStr(FStrBuffer.ToString, '"', '\"') + '"');
  Result := NullString;
end;

这次把引号转义了，但是还有问题：如果里面本身已经有斜杠了，难道不用转义？？哎，头继续大。