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

Question

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

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

有人可以告诉我如何从TMemo控件中删除由文本找到的行吗？

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函数不区分大小写。