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 system 中的数学函数

Delphi 静态/动态调用dl

Delphi getexplorerpid获取系统explorer.exe进程id

Delphi 10.3 控件遮挡 webbrowser

Delphi中使用汇编(关于pos函数的问题)

Delphi下的纯pascal的十六进制转十进制

Delphi利用微软sapi实现语音控制(Delphi，tts,sr，灰色代码)_

Delphi 10.3版本获取windows系统版本和cpu信息

Delphi 将被其他窗体遮住的窗体弹到最前面

webbrowser自动填表模板

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

转载请注明出处：木庄网络博客 » Delphi JSON字符串转义