delphi richedit 指定文字颜色问题
发布网友
发布时间:2023-09-24 23:05
我来回答
共1个回答
热心网友
时间:2024-10-28 01:19
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;