本文整理自网络,侵删。
创建一个函数,将接收到的字符串转换为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 关于datetimepicker的一点问题(同时修改日期和时间的实现)
Delphi xe使用tjsonobject解析json数据
Delphi adoconnection1连接mssql数据库方法
更多相关阅读请进入《Delphi》频道 >>