RichEdit的一个问题？

Question

我使用RichEdit.Lines.Add('序号：'+'111')
如何让'序号：'是红色的，有简单的方法吗？

Answer 1

ipos :integer ;
ipos := Richedit.text.selstart ;
richedit.lines.add('序号:' + 'lll');
richedit.text.selstart := ipos ;
richedit.text.sellength := 5 ; {两个字和一个符号(字符)}
richedit.text.selattribute.color := clred ;

Answer 2

RichEdit1.SelStart :=Length(RichEdit1.Text);
RichEdit1.SelLength:=0;
RichEdit1.SelAttribute.Color := clRed;
RichEdit1.SelText:='序号:';
RichEdit1.SelStart :=Length(RichEdit1.Text);
RichEdit1.SelLength:=0;
RichEdit1.SelAttribute.Color := clBlack;
RichEdit1.SelText='lll'#13#10;