TRichEdit查找受保护的文本

Question

我正在开发TRichEdit（Delphi XE2）。

有什么方法可以检查Richedit文本框是否包含受保护的文本？ 也是该受保护文本的开始位置，而无需遍历整个文本。

目前我正在使用下面的代码

source.SelStart := charNo; //source is richedit name and charno is the                     
                        //iterating loop 
source.SelLength := 1;
if (source.SelAttributes.Protected) then

文本较大时，以上代码将花费大量时间执行。

这曾经在delphi 4中正常工作

有人可以告诉我为什么在Delphi XE2中使用相同的代码会花费更多的时间，而在Delphi 4中使用的时间却更少吗？

Answer 1

无法搜索文本属性。 迭代各个字符并查询其属性是唯一的选择。

为了加速代码，您可以：

1. 使用EM_SETSEL或EM_EXSETSEL窗口消息，而不是分别设置SelStart和SelLength属性。

2. EN_HSCROLL EN_VSCROLL ，请使用EM_SETEVENTMASK窗口消息来关闭RichEdit的内部通知（例如EN_HSCROLL ， EN_VSCROLL和EN_SELCHANGE ）。

3. 您还可以考虑使用WM_SETREDRAW窗口消息在迭代时禁止RichEdit重新绘制。