« ☆DateToStr関数 | トップページ | ■Delphi8 and .NET 1.1 SP1 »

★RichEdit と '×'

[Delphi 7]
フォームにTButtonとTRichEditを貼り付けて、次の処理を記述します。

procedure TForm1.Button1Click(Sender: TObject);
const
 S = '×';
begin
 RichEdit1.Lines.Add(S);
end;
これを実行すると次のメッセージのようなエラーになります。 RichEdit での行の挿入エラー

× の前か後ろに全角の文字を組み合わせるとエラーにならないのですが、エディターにそのような制限をするのは不適切でしょうし、具体的な解決方法を見つけられずにいます。

※Windows 2000 Pro(SP3) でもWindows XP Pro(SP2) でも同じ結果でした。
※Delphi8では、問題なく実行できます。(DLLが違うでしょうし、当たり前かな?)

|

« ☆DateToStr関数 | トップページ | ■Delphi8 and .NET 1.1 SP1 »