UTF-8対応のEditコンポーネントを作りたい (ID:41189)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >しかし、現在その読み込みで苦戦しています。 UTF-8ファイル限定で良ければ以下で。 ただしUTF-8以外のUTF-16やShift-JISのファイルもこのままでは文字化けします。 procedure TForm1.Button2Click(Sender: TObject); var l_List : TStrings; begin if (OpenDialog1.Execute) then begin l_List := TStringList.Create; try l_List.LoadFromFile(OpenDialog1.FileName); //UTF-8ファイル以外は文字化けする SetWindowTextW(richEditx, PWideChar(Utf8Decode(l_List.Text))); finally l_List.Free; end; end; end; 読み込みたいファイルの文字コードの自動判定が必要なら以下を参考にどうぞ。 http://drang.s4.xrea.com/program/tips/string/auto.html Unicode対応のRichEditのクラス化には以下を参考にどうぞ。 http://drang.s4.xrea.com/program/tips/unicode/richedit/richedit_1.html