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;
这次把引号转义了,但是还有问题:如果里面本身已经有斜杠了,难道不用转义??哎,头继续大。