如何在Delphi中实现长尾词在大型TMemo中的高效查找？

本文共计380个文字，预计阅读时间需要2分钟。

我有一个包含大量文本的TMemo，80M（约400K行）。TMemo设置为WordWrap=FALSE，无需查找包含两行的文本。我需要一种快速查找文本的方法，从开头开始，然后找到下一个。因此，我将使用一个TEdit来设置文本。

我有一个包含很多文本的TMemo,80M(约400K行).

TMemo设置为WordWrap = FALSE,无需查找包含2行的文本.

我需要一种快速的方法来查找文本,从一开始,然后找到下一个.

所以,我把一个TEdit用于放置文本以找到一个TButton来查找TMemo中的文本.

我正在考虑使用Pos(),逐行检查,但这将是缓慢的.
我不知道如何确定当前光标位置的TMemo.Lines [index].

任何人都可以提出解决方案吗？

谢谢

更新：

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

SearchText()函数可以快速,快速地工作.
花了几秒钟在底端搜索唯一的字符串.

对 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的从零开始的偏移量.