掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IEの特殊文字をricheditに貼り付けるには (ID：12580)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ウムラウトのコードそのままで Sfhit-jisとかぶるのを覚悟で 強制変換されずに Unicodeを強引に256未満を１バイトにするなら for i := 1 to Length(WS) do if (Word(WS[i])<=$FF ) then S2 := S2 + Char(Word(WS[i])) else S2 := S2 + WS[i]; でいいのでは？ 条件の数字は、好みで変えてください。 // ２バイトならChar(WordRec(WS[i]).Hi)+Char(WordRec(WS[i]).Lo) サイズ情報を持ったString型を使うDelphiでは関係ないですが Char(WordRec(WS[i]).Hi)のときには注意が要ります。 PCharを使うC,C++の世界では,Char(0)は文字列の終わりをしめしますので注意して下さい。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.