掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IEの特殊文字をricheditに貼り付けるには (ID:12573)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
文字確認用 procedure TForm1.Button5Click(Sender: TObject); var WS : WideString; i : integer; s, Text : string; begin WS := GetWideStrFromClipboard; Text := 'ユニコード文字(WideString)'+#13#10; for i := 1 to Length(WS) do Text := Text + format('%.4x ',[Word(WS[i])]); s := WS; Text := Text+#13#10+'stringに変換後'+#13#10; for i := 1 to Length(S) do Text := Text + format('%4.2x ',[Word(S[i])]); Label1.caption := Text; RichEdit1.text := WS; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.