Delphi中对TRichEdit控件的每一行设置不同的颜色

今天在做一个Delphi小程序，要求界面显示出不用的日志信息用不同的颜色进行显示，于是我就用了TRichEdit控件来实现：代码如下：procedure Tfrichedit.FormCreate（Sender: TObject）;
begin
redt.Lines.Clear;
redt.Font.Size := 12; //设置字体大小
redt.SelAttributes.Color := clRed;
redt.Lines.Add（"[ERROR|报盘监控参数3设置失败！！！]"）;
redt.SelAttributes.Color := clRed;
redt.Lines.Add（"[ERROR|报盘监控参数2设置失败！！！]"）;
redt.SelAttributes.Color := clRed;
redt.Lines.Add（"[ERROR|报盘监控参数1设置失败！！！]"）;
redt.SelAttributes.Color := clRed;
redt.Lines.Add（"[ERROR|报盘监控参数设置失败！！！]"）;
redt.SelAttributes.Color:=clGreen; //颜色
redt.Lines.Add（"[INFOR|报盘监控线程启动成功！！！]"）;
redt.Lines.Add（"[DEBUG|报盘监控指标下载成功！！！]"）;
redt.Lines.Add（"[DEBUG|报盘监控指标设置成功！！！]"）;
redt.SelAttributes.Color := clRed;
redt.Lines.Add（"[ERROR|报盘监控参数4设置失败！！！]"）;
redt.SelAttributes.Color := clRed;
redt.Lines.Add（"[ERROR|报盘监控参数5设置失败！！！]"）; end;运行结果如图所示：那么大家可以根据自己的需要进行对不同的信息设置不同的颜色。好了，今天的TRichEdit就讲到这里。本文永久更新链接地址：http://www.linuxidc.com/Linux/2015-01/112027.htm