Delphi 如何计算RichEdit中的字符数，而不计算每行给出的两个字符数？

我在richedit（delphixe）中计算字符时遇到问题。 因此，每增加一行，我就多得到两个字符，但在文本中它们并不存在

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

line zero line one 零线 第一行

---

有解决方案吗？

删除CR/LFs并获取剩余字符的计数。例如：

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

---

欢迎来到SO！如果您将问题编辑为包含代码段以显示当前如何计算字符数，则可能会获得更多答复和投票。（一般来说，如果您有问题，通常最好显示您当前正在做什么以及问题是什么。）我相信这将比在

行上的迭代慢2..3倍@OP：由sLineBreak分隔的文本片段的正确名称是“段落”@Downvoter-如果该文本与问题中的一样长，您可能是正确的。@Srdjan-不客气！如果你愿意，你可以回答。：）对于较小的文本，效果很好，但对于较大的文本，效果很慢。但是，你帮了我很多：）