掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IEの特殊文字をricheditに貼り付けるには (ID：12576)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
三角さんのUnicode取得ソースを使ってUnicodeと西ヨーロッパ言語の文字コードを比較して、文字コードが分かりました。 ウムラウト記号の半角は以下のソースでWindows9x系の文字が取得可能だと思います。ためしにEdit1.textをUnicode非対応アプリにコピペしたところ理想的な動作をしました。 //Unicode->西ヨーロッパ言語（英数、ウムラウトでのみ確認） procedure TForm1.Button3Click(Sender: TObject); var WS : WideString; text:string; i:integer; begin WS := GetWideStrFromClipboard; //GetWideStrtoClipboard; for i := 1 to Length(WS) do text:= text + Char(Word(WS[i])+1); Edit1.Text := text; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.