如何从TMemo控件中删除文本中找到的行？

Question

我有一个TEdit，TMemo和一个按钮。当用户按下按钮时，我想从该备忘录控件中删除与在编辑框中输入的文本匹配的行。如果找不到匹配的行，则应显示某种＆＃34;行未找到＆＃34; 消息。

我是Delphi的新手并且不知道任何代码，但理论上它应该按照搜索TMemo的原则工作，直到找到匹配{{1}的行然后删除该特定行。

有人可以告诉我如何删除Edit.Text控件中文字找到的行吗？

Answer 1

使用IndexOf函数在字符串列表中按文本查找项目的索引。如果此函数返回的值不同于-1，则找到该字符串，您可以使用Delete方法从列表中删除它，并传递找到的索引：

var
  Index: Integer;
begin
  Index := Memo.Lines.IndexOf(Edit.Text);
  if Index <> -1 then
    Memo.Lines.Delete(Index)
  else
    ShowMessage('Text not found!');
end;

请注意，IndexOf函数不区分大小写。