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

Question

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

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

运行输出应如下所示：

001: startup time
002: watched tv
003: |

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

但是，当我运行程序并按 F9 键时，我得到了这个：

001: 
002: 
003: 
|

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

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

score 17 · Accepted Answer

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

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

1 回答 1