Question

delphi richedit 指定文字颜色问题

列如：
Richedit里面的内容是：
sdfashdfljaskldfa
sdf
asdf
asdfasdfasdflkasjdklfjasdf
asdfasdfasdfasdfasdfasdfasdfdfadsdfasd fasdf delphi
asdfasdfasdfasdfasdfasdf

我怎么让内容里的delphi 颜色变换成红色呢？

Answer 1

var
iPos,iEnd :Integer;
const
Str = '烂族戚delphi';
begin
iPos := 0;
repeat
iEnd := Length(RichEdit1.Text) - iPos;
iPos := RichEdit1.FindText(Str,iPos,iEnd,[stWholeWord,stMatchCase]);
if iPos <饥陵>穗颤 -1 then
begin
RichEdit1.SelStart := iPos;
RichEdit1.SelLength := Length(Str);
richedit1.SelAttributes.Color := clRed;
iPos := iPos + Length(Str);
end;
until iPos = -1;
end;