Delphi JSON字符串转义


本文整理自网络,侵删。

 
创建一个函数,将接收到的字符串转换为TJSONObject并显示它。

uses
  System.JSON;

procedure Print(const JSONStr: string);
var
  JSONValue: TJSONValue;
  JSONObj: TJSONObject;
  JSONPair: TJSONPair;
begin
  JSONValue := TJSONObject.ParseJSONValue(JSONStr);
  if JSONValue = nil then
    ShowMessage('解析失? ?')
  else
  begin
    JSONObj := JSONValue as TJSONObject;
    try
      for JSONPair in JSONObj do
        ShowMessage(JSONPair.JsonString.Value + '=' + JSONPair.JsonValue.Value);
    finally
      JSONObj.Free;
    end;
  end;
end;
如果字符串中没有“ \”,则它可以正常工作。

procedure TForm1.Button1Click(Sender: TObject);
const
  JSONStr = '{"Delphi":"Object Pascal", "C++Builder":"C++"}';
begin
  Print(JSONStr);
end;
如果字符串中有“ \”,则解析失败。

procedure TForm1.Button2Click(Sender: TObject);
const
  JSONStr = '{"name":"C:\Windows", "age":"33"}';
begin
  Print(JSONStr);
end;

相关阅读 >>

Delphi 解决idtcpclient和idtcpserver通信中文乱码问题

Delphi 计算运行耗时的方法2

Delphi 获取随机汉字的函数

Delphi 关于datetimepicker的一点问题(同时修改日期和时间的实现)

Delphi 字符串加密解密(不支持中文)

Delphi xe使用tjsonobject解析json数据

Delphi xe安装后配置android的sdk的方法

Delphi 根据数据库结构生成treeview

Delphi fdmemtable1 内存表字段排序

Delphi adoconnection1连接mssql数据库方法

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...