怎样在richedit中加入特定的字体的字？

Question

怎样在richedit中加入特定的字体的字？如加入‘XXX’红色宋体五号，怎么加

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelStart := 1;  //改变颜色的起始位置
  RichEdit1.SelLength := 2;  //改变颜色的字符数量
  RichEdit1.SelAttributes.Color := clRed;  //改变两个字符为红色
  RichEdit1.SelAttributes.Name := '隶书';  //字体为隶书
  RichEdit1.SelAttributes.Size := 12;  //字体大小
end;

Answer 2

这我也知道，关键是前面不知道有多少字，用length(richedit1.text)总会错几个，
如： RichEdit1.SelStart := length(richedit1.text)，
不是从当前的开始，而是从以后的某个开始，也许是回车的事，我不知道怎么解决

Answer 3

那你要在哪加，总有个特征吧。连你都不知道在哪加，又怎么知道会错几个呢？如果在光标处加，这样：
procedure TForm1.Button1Click(Sender: TObject);
begin
  procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelAttributes.Color := clRed;  //改变两个字符为红色
  RichEdit1.SelAttributes.Name := '隶书';  //字体为隶书
  RichEdit1.SelAttributes.Size := 12;  //字体大小  Richedit1.SelText := 'XXX';end;end;