Delphi - 在大型 TMemo 中查找文本

Question

我有一个 TMemo，其中包含相当多的文本，80M(大约 400K 行)。

TMemo 设置为 WordWrap = FALSE，不需要查找换行为 2 行的文本。

我需要一种快速的方法来从头开始查找文本，并查找下一个文本。

因此，我放置了一个 TEdit 来放置要查找的文本，并放置了一个 TButton 来在 TMemo 中查找文本。

我正在考虑使用 Pos()，逐行检查，但这会很慢。而且我不知道如何确定当前光标位置的 TMemo.Lines[index]。

有人能想出解决办法吗？

谢谢

更新:

我从这里找到了解决方案: Search thru a memo in Delphi?

SearchText() 函数工作得很快，而且非常快。花了几秒钟在底部搜索唯一的字符串。

Answer 1

对 previous answers 的一点补充:您无需选择找到的模式即可获取行号，如下所示:

procedure TForm1.Button3Click(Sender: TObject);
var
  I, L: Integer;

begin
  Memo1.WordWrap:= False;
  Memo1.Lines.LoadFromFile('Windows.pas');
  I:= Pos('finalization', Memo1.Text);
  if I > 0 then begin
    L := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, I - 1, 0);
    ShowMessage('Found at line ' + IntToStr(L));
// if you need to select the text found:
    Memo1.SelStart := I - 1;
    Memo1.SelLength := Length('finalization');
    Memo1.SetFocus;
  end;
end;

请注意，行号是从零开始的，您还应该从 Pos 结果中减去 1，以获得 SendMessage 和 TMemo.SelStart< 从零开始的偏移量.