在TrichEdit

Question

我在XP sp3上运行Delphi 7。

在我的TrichEdit中，我有N行是这样的：

TextLine 1
TextLine 2
..
TextLine N 
...

如果由于某种原因发生错误，并且文本更改为：

TextLine 1
TextLine 2
TextLine 2   (mark // my marking)
..
TextLine N 

我希望将第一个重复（=第二行文本行2（标记））标记为红色。

我试图：

Text := RichEdit.Lines[second Textline 2];
Richedit.SelAttributes.Color := clRed; 
RichEdit.SelText := Text;

它可以工作，但是将文本放在开头（RichEdit中的顶部）。

我认为问题是将RichEdit-lineCounter移至行（测试行2（标记））或类似的东西，但是我该怎么做（=在RED中标记错误行）？

Answer 1

您必须执行以下操作：

1. 找到要更改其格式的第一个字符的字符索引，并将SelStart设置为该索引。
2. 将SelLength设置为您希望设置格式的文本的长度。
3. 修改SelAttributes以应用所需的格式。