「度」記号と「オーム」記号など、いくつかの特殊文字を使用する Delphi フォームがいくつかあります。これらの文字は、DFM ファイルに保存されたラベル キャプションで使用され、実行時に生成または変更されません。これらのフォームを最初に設計したとき、角度記号は Ansi 文字セット (コード 176) に含まれていたので簡単でしたが、オーム記号はコード 217 で使用するギリシャ文字セットが必要でした。 need (文字と数字) は、ギリシャ文字セットで正常に機能します。
ここで、これらのフォームが D2009 でも同じように見えるようにします。度記号は正常に表示されますが、dfm テキストが "Caption = 'Typed in Ohms - 1234 '#217" であるため、オーム記号は 'Ù' と表示されます。フォームを編集して正しい Unicode オーム記号 (8486) を入力できることがわかりましたが、もちろんこれは「?」で失われます。D7に戻るとき。理想的には、dfm の #217 がオーム記号にマップされるように、フォームでギリシャ文字セットを引き続き使用するように D2009 に指示したいと思います。これは可能ですか?「GREEK_CHARSET」である Font.Charset 設定を無視しているようです。これを解決する汚い方法を発見しました。これは、すべてのコンポーネントを反復処理して "StringReplace( S, 'Ù', OhmsChar, [rfReplaceAll] )" を実行することですが、これは恐ろしいことであり、もっと良い方法があるに違いありません。
ありがとう、ブライアン