delphi中JSON回车换行符转义

Delphi使用json作为标准对接的时候，如果入参含有回车和换行符那么会破坏原json数据结构。导致服务端处理异常。这个时候就需要对输入的json字符串进行转义。

首先Delphi中#13代表回车，#10代表换行。所以在转义的时候这2种情况都要考虑到。

比如原JSON字符串 stJson ,转义如下:

stJson:=StringReplace (stJson, #13 '\\r', [rfReplaceAll]);

stJson:=StringReplace (stJson, #10 '\\n', [rfReplaceAll]);

推荐分享