Richedit是否存在bug?

[verlongan]

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]; //读不出来

[lovend]

帮你顶

[hellolongbin]

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

[verlongan]

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

[hellolongbin]

你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;