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

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