如何从 JSON 字符串中删除尾随的黑斜杠?
How remove trailing blackslash from JSON string?
我需要 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;
你可以试试这个:
Result := FormatJSON(TempArray.ToJSON.Replace('\/', '/'));
我需要 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;
你可以试试这个:
Result := FormatJSON(TempArray.ToJSON.Replace('\/', '/'));