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

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