如何将文本附加到 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

您可以使用“字符串”和“计数”属性。

RichEdit1.Lines.Strings[RichEdit1.Lines.Count-1]:=RichEdit1.Lines.Strings[RichEdit1.Lines.Count-1]+'文本';

Answer 3

履行

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