RichEdit1怎么设定每一行的字体颜色
比如：
RichEdit1.Lines.Add('修改成功')；
RichEdit1.Lines.Add('修改不成功')；
怎么设定这两种字体颜色不同，具体就是没增加一行怎么设定这一行的字体颜色
[解决办法]
RichEdit1.SelStart
RichEdit1.SelLength
上面两行设置选中行，起始和长度自己定
RichEdit1.SelAttributes.Color，这个设定选择文字的颜色
[解决办法]
RichEdit1.SelStart := Length(RichEdit1.Lines[0]);
RichEdit1.SelLength := Length(RichEdit1.Lines[1]);
RichEdit1.Font.Color:=clRed;
[解决办法]
错了，是这个RichEdit1.SelAttributes.Color
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Clear;
RichEdit1.Lines.Add('修改成功');
RichEdit1.Lines.Add('修改不成功');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.SelStart:=0;
RichEdit1.SelLength:=Length(RichEdit1.Lines[0]);
RichEdit1.SelAttributes.Color:=clYellow;
RichEdit1.SelStart:=Length(RichEdit1.Lines[0])+1;
RichEdit1.SelLength:=Length(RichEdit1.Lines[1]);
RichEdit1.SelAttributes.Color:=clBlue;
end;
[解决办法]
RichEdit1.Lines.Add('修改成功')；
每一次add 都设置个颜色 就可以了
