怎样在richedit1加入文本时加入格式？

Question

richedit1.Lines.add('第一行文本');
 richedit1.Lines.add('第二行文本');    我需要加入时第一行文本为楷体四号字；第二行文本为宋体小五号字。有没有办法在加入时直接加入文本的格式。使之在richedit1 中按设置的格式显示呢。

Answer 1

procedure TForm1.FormShow(Sender: TObject);
var
  L1,L2:Integer;
begin
  L1:=Length(RichEdit1.Lines.Strings[0]);
  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=L1;
  RichEdit1.SelAttributes.Name:='楷体_GB2312';
  RichEdit1.SelAttributes.Size:=14;
  L2:=Length(RichEdit1.Lines.Strings[1]);
  RichEdit1.SelStart:=L1+2;
  RichEdit1.SelLength:=L2;
  RichEdit1.SelAttributes.Name:='宋体';
  RichEdit1.SelAttributes.Size:=11;
  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=0;
end;

Answer 2

如果就用lines.add，那么也可以，你可以打开一个标准rtf文件看看那些样式标记的格式，道理和html一样！