Delphi - 在大型TMemo中查找文本

Question

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

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

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

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

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

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

谢谢

更新:

我从这里找到了一个解决方案: 通过Delphi中的备忘录进行搜索？

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

Answer 1

对前面的答案稍加补充:您可以在不选择找到的模式的情况下获取行号,如下所示:

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;

请注意,行号是从零开始的,你也应该从减去1 Pos的结果获得从零开始的偏移SendMessage和TMemo.SelStart.