Richedit是否存在bug?

Question

1、不能插入带颜色的一行。
i, k: integer;  //全局procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(i, 10);
  RichEdit1.SelAttributes.Color := $0000ff + i;
  k := RichEdit1.Lines.Add('aaa');
  RichEdit1.SelAttributes.Color := $00ff00 - i;
  RichEdit1.SelText := ' bbb';  RichEdit1.Lines.Insert(k+1, 'ccc');  //注意：用＋1正确，－1则错
  RichEdit1.SelAttributes.Color := $ff0000;
end;2、RichEdit1.lines.AddObject('abc', TObject(i)); //这函数没有发挥用处，对PutObject()没有实现。
   RichEdit1.Lines.Objects[i]; //读不出来

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    RichEdit1.SetFocus;
    RichEdit1.SelText:='aaaaa';
    RichEdit1.SelAttributes.Color:=clBlue;
end;

Answer 2

楼上的，太简单了吧，这是没有问题的，我要的是insert(...)，和addObject(...)有效果。

Answer 3

你Insert以后没有选中，richedit的seltext没有内容，所以RichEdit1.SelAttributes.Color := $ff0000;这句话相当于是空操作procedure TForm1.Button1Click(Sender: TObject);
begin
    RichEdit1.SetFocus;
    RichEdit1.Lines.Insert(0,'aaa');
    RichEdit1.SelStart:=RxRichEdit1.SelStart-4;
    RichEdit1.SelLength:=3;
    RichEdit1.SelAttributes.Color := $ff0000;
end;