掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Json形式のテキスト出力時にエスケープしない方法について (ID:151350)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Json形式のテキスト出力時に値をUnicode文字列に変換しないといけないのですが、 サンプルロジックを実行すると「\」が以下のようにエスケープされてしまいます。 【サンプルの結果】{"text":"\\u30C6\\u30B9\\u30C8"} TJsonObjectでは、以下のように「\」のエスケープを無効化して出力する方法はないのでしょうか? 【希望する結果】{"text":"\u30C6\u30B9\u30C8"} こちらに同じ質問されている人がおられましたが、回答内容がJSONデータの整形のサンプルのようでしたので、参考になりませんでした。 https://qiita.com/TJiJi/questions/449a71f159433d18a68f ■サンプル procedure TForm1.Button1Click(Sender: TObject); var LJson: TJSONObject; LUnicodeString: UnicodeString; s: string; I: integer; begin LJson := TJSONObject.Create; try LUnicodeString := 'テスト'; for I := 1 to length(LUnicodeString) do begin s := s + '\u' + IntToHex(ord(LUnicodeString[I])); end; LJson.AddPair('text', s); memo1.Lines.Clear; memo1.Lines.Add(LJson.ToString); finally LJson.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.