删除备忘录中的最后一行空白

Question

我搜索谷歌，但似乎无法找到一个工作解决方案。

情况是独一无二的。我需要在不同时间添加评论。每当我按下F9键时，行号将显示后跟一个冒号“：”char，然后我在行号和光标位置输入一些注释。

运行的输出应该是这样的：

001: startup time 
002: watched tv 
003: | 

，其中 “|”是运行时的最后一个光标位置，等待我输入一些文本。

而是，当我运行该程序，然后按F9键，我得到这个：

001: 
002: 
003: 
| 

，其中 “|”是运行时的最后一个光标位置，等待我输入一些文本。

如何删除备忘录中的（最后一个）空白行？

Answer 1

Add()在插入的文本后面插入换行符。如果您不想换行符，请改用SelText属性，例如;

Memo1.SelStart := Memo1.GetTextLen; 
Memo1.SelLength := 0; 
Memo1.SelText := '003: ';