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;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com