delphi - 如何在没有每新行给出两个字符的情况下计算 RichEdit 中的字符数？

Question

我在计算 Richedit (Delphi XE) 中的字符数时遇到问题。 对于每一个新行，我都会多得到两个字符，但在文本中它们不存在。

示例:这里有 15 个字符，但由于换行，richedit 给出了 17 个字符。

line zero
line one

有解决办法吗？

Answer 1

删除 CR/LF 并获取剩余字符的计数。一个例子:

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