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

Question

我搜索了谷歌，但似乎无法找到一个有效的解决方案。

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

运行输出应如下所示：

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: ';