如何计算RichEdit中的字符而没有每个新行给出的两个字符？

Question

我在richedit（Delphi XE）中计算字符时遇到问题。 因此，对于每一个新行，我得到两个字符，但在文本中它们不存在。

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

line zero
line one

有解决方案吗？

Answer 1

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

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