防止插入空备忘录

Question

在插入查询之前，我正在检查备忘录的内容。

if memo1.lines.Text = '' then begin
showmessage('Warning:Missing data!');
abort;
end else ....

只要memo1中没有任何东西，它就能正常工作。但是，当用户点击空备忘录中的enter，光标移动到第二行时，运行查询，在没有警告消息的情况下触发insert，尽管备忘录中没有任何内容。有什么办法可以防止这种情况发生吗？

Answer 1

用户点击后，输入备忘录文本包含空格(行-返回)，因此它不等于'‘。

你需要先修剪一下课文。http://docwiki.embarcadero.com/Libraries/XE2/en/System.SysUtils.Trim

var
    memoText : String;

..。

memoText := Trim(memo1.lines.Text);
if memoText = '' then 
begin
    showmessage('Warning:Missing data!');
    abort;
end else ....

Answer 2

如果用户按返回会导致备忘录中增加一行，则必须将WantReturns属性设置为TRUE，以及处理#13键或VK_ have < code >E29虚拟密钥代码的OnKeyPress或OnKeyDown事件。

如果将WantReturns设置为FALSE，则用户必须使用CTRL+ENTER插入一条新行，只要按下返回键，not就会插入空行。

但是，如果您对用户界面当前的行为方式感到满意，并且只想检查备忘录是否只包含空白，那么您必须使用Trim(Memo.Text)或其他测试备忘录内容的机制分别验证这一点，以满足应用程序对“不为空”的定义。

正如其他人所指出的，简单地使用Trim() on Memo.Text来测试是否存在非空白字符可能非常低效，尽管在您的情况下，这在很大程度上取决于应用程序中备忘录的预期内容。

测试非空白字符串的一种更有效的方法是：

function ContainsOnlyWhitespace(const aString: String): Boolean;
var
  i: Integer;
begin
  result := FALSE;

  for i := 1 to Length(aString) do
    if (aString[i] > ' ') then
      EXIT;

  result := TRUE;
end;

这些用途如下：

if ContainsOnlyWhitespace(Memo.Text) then
begin
  // show warning message etc...
end;

这将比Trim()高效得多，因为它不涉及生成任何新字符串或修改正在测试的字符串。