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

【问题标题】：removing last blank line in memo删除备忘录中的最后一个空白行
【发布时间】：2013-01-07 02:42:39
【问题描述】：

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

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

运行输出应如下所示：

001: startup time
002: watched tv
003: |

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

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

001: 
002: 
003: 
|

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

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

【问题讨论】：

标签： delphi memo

【解决方案1】：

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

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

【讨论】：

这行得通。我将代码添加到 FormActivate 事件中，以便不存在错误。谢谢。
您可以将 Remy Lebeau 的代码放在 Memo1KeyDown 事件中，而不是在 FormActivate 事件中。例如，Memo1KeyDown 中的 Memo1.Lines.Add('003') 可以替换为 Remy Lebeau 所示的三行。