TRichEdit怎样新增的内容到最后一行？

Delphi里使用TRichEdit，使用SetSelTextBuf时可以设置显示的字体格式，但是显示位置是在当前的插入光标后，如果人为改变插入光标的位置，比如在其他位置单，以后再插入的内容位置就没办法控制了。
能不能限制每次新增加的内容都加到末尾？或者用其他的方式实现增加内容也可以，但是要能够控制这个字符串显示的格式，用Lines.Append(‘‘);这样是没用的
或者每次编程把插入光标移动最后也行，不过不知道怎么做，哪位说一下？

解决方案 »

1. procedure TForm1.SpeedButton1Click(Sender: TObject);
   begin
   RichEdit1.SelStart := MaxInt;
   RichEdit1.SelAttributes.Color := Random($FFFFFF);
   RichEdit1.Lines.Add(ColorToString(RichEdit1.SelAttributes.Color));
   end;

    

2.  

   RichEdit1.Lines.Insert(RichEdit1.Lines.Count,‘12109021‘);

    

3.  

   如果要接在最后一行字符后面，则可以这样写：
   var
   S:string;
   begin
   S:=RichEdit1.Lines[RichEdit1.Lines.count-1];
   RichEdit1.Lines.Delete(RichEdit1.Lines.count-1);
   self.RichEdit1.Lines.Insert(RichEdit1.Lines.Count,S+‘12109021‘);
   end;

TRichEdit怎样新增的内容到最后一行？

原文：https://www.cnblogs.com/jijm123/p/10455737.html