我需要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;
答案 0 :(得分:0)
您可以尝试以下方法:
Result := FormatJSON(TempArray.ToJSON.Replace('\/', '/'));