如何將文本追加到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;