delphi - すべての改行が与える2文字なしでRichEditの文字を数える方法は？

Question

richedit（Delphi XE）で文字を数えるのに問題があります。結果として、新しい行ごとに2文字多くなりますが、テキストには存在しません。

例：ここに15文字がありますが、改行のためにricheditは17文字を与えます。

ラインゼロ
1行目

これに対する解決策はありますか？

Answer 1

CR / LFを削除し、残りの文字数を取得します。例：

NumChars := Length(StringReplace(RichEdit1.Text, sLineBreak, '', [rfReplaceAll]));