如何从JSON字符串中删除结尾的反斜杠?

时间:2020-01-17 23:15:51

标签: json delphi delphi-10.3-rio

我需要addPair()到JSON对象,该对象的值是尾随的反斜杠 / 。结果为beeing等于:“ \ /”

然后,如何删除JSON插入的左侧尾部的黑色斜杠?


版本:

已测试StringReplace(),但无效。

uses
 System.JSON, REST.Json;

//...

function FormatJSON(json: string): string;
var
  tmpJson: TJsonValue;
begin
  tmpJson := TJSONObject.ParseJSONValue(json);
  Result := TJson.Format(tmpJson);
  FreeAndNil(tmpJson);
end;

function xxxxxx: String;
var
  TempObject: TJSONOBject;
  TempArray: TJSONArray;
begin
 TempObject := TJSONOBject.Create;
 TempArray := TJSONArray.Create;
 TempObject.AddPair('value', '/');
 TempArray.AddElement(TempObject);
 Result := FormatJSON(TempArray.ToJSON);
end;

1 个答案:

答案 0 :(得分:0)

您可以尝试以下方法:

Result := FormatJSON(TempArray.ToJSON.Replace('\/', '/'));