如何将文本添加到新行而不是最后一行? Lines.Add和Lines.Append将文本添加为新行,并且Lines.Insert需要一个我不知道如何查找的位置。如何将文本追加到RichEdit控件的最后一行?
1
A
回答
3
可以使用的最后一行本身,或者整个内容:
// 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];
1
您可以使用“字符串”和“计数”属性。编辑1.Lines.Strings [RichEdit1.Lines.Count-1]:= RichEdit1.Lines.Strings [RichEdit1.Lines.Count-1] +'Text';
+0
Lines.Strings []和Lines []是相同的东西; Lines是读写Lines.Strings的默认属性。 – 2009-12-31 18:42:44
1
执行
with RichEdit1 do
begin
Lines.Add(s);
Perform(EM_SCROLL, SB_LINEDOWN, 0);
end;
相关问题
- 1. 如何将文本追加到文件的最后15行
- 2. 如何将一行文本追加到SQLCMD中的文件
- 3. 如何将文本追加到文件
- 4. V8,将文本追加到数组的最后一个元素
- 5. 如何通过命令行将变量文本追加到文件的最后一行?
- 6. bash脚本将文本追加到文件的第一行
- 7. 追加到Java中的CSV文件的最后一行
- 8. 如何将文本添加到列的最后一行
- 9. 追加到bash中的最后一行
- 10. 如何在RichEdit控件中查找粗体文本的运行?
- 11. 如何将文本追加到d3.js中的一行
- 12. 如何将文本追加到现有的文本文件
- 13. 如何将文本追加到div的
- 14. 最后一次出现匹配行后追加文本
- 15. 将文本追加到文本文件中的现有行
- 16. 在文件的最后一行之前追加三条新行
- 17. 如何将一行文本追加到离子2中的现有文件中?
- 18. 如何添加一行地读线和每行后追加文本的条件
- 19. 如何将文本追加到C++文本文件中?
- 20. 如何将文本追加到黑莓文本文件中
- 21. 如何将行添加到delphi中的RichEdit组件?
- 22. 将文本追加到行的末尾
- 23. 如何追加到文本文件?
- 24. 确保RichEdit控件中的最后一个字符可见
- 25. 加密文件追加最后的
- 26. 如何一些文本追加到DisplayMember一个控制
- 27. 纯JavaScript将文本追加到文件
- 28. 将文本追加到PowerShell文件
- 29. 如何将文本文件中的最后一行复制到另一个文本文件 - 批处理文件
- 30. 如何将数据追加到Python 2.7.11中的文本文件?
我试过了,它工作。非常感谢。但现在我怎样才能格式化这个添加的文本。 – 2009-12-31 19:28:07