如何将文本追加到RichEdit控件的最后一行？

Question

如何将文本添加到新行而不是最后一行？ Lines.Add和Lines.Append将文本添加为​​新行，并且Lines.Insert需要一个我不知道如何查找的位置。

Answer 1

可以使用的最后一行本身，或者整个内容：

// RE = TRichEdit, Temp = string; 
// Last line only 
Temp := RE.Lines[RE.Lines.Count - 1]; 
Temp := Temp + ' plus some new text'; 
RE.Lines[RE.Lines.Count - 1] := Temp; 

// The entire content 
Temp := RE.Text; 
Temp := Temp + ' plus some new text'; 
RE.Text := Temp; 

需要注意的是第一种方式比较好，尤其是当RichEdit中含有大量的文本。读写RichEdit.Text可能涉及在内存中移动大量文本。

编辑：我的回答OP的评论后：

要格式化文本，添加之前保存的SelStart，然后用SelLength和SelAttributes应用格式：

// StarPos and Len are both Integers. 
StartPos := Length(RE.Text); 
Len := Length(YourNewTextToBeAdded); 
// Do stuff here to add text 
RE.SelStart := StartPos; 
RE.SelLength := Len; 
RE.SelAttributes.Style := RE.SelAttributes.Style + [fsBold]; 

Answer 2

您可以使用“字符串”和“计数”属性。编辑1.Lines.Strings [RichEdit1.Lines.Count-1]：= RichEdit1.Lines.Strings [RichEdit1.Lines.Count-1] +'Text';

Answer 3

执行

with RichEdit1 do 
begin 
Lines.Add(s); 
Perform(EM_SCROLL, SB_LINEDOWN, 0); 
end;