当前位置：文江博客话题详情

Delphi - 在大型 TMemo 中查找文本

发布于 2024-12-25 04:01:37 字数 544 浏览 2 评论 0原文

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

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

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

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

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

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

谢谢

更新：

我从这里找到了解决方案：在 Delphi 中搜索备忘录？

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

彼岸花ソ最美的依靠 2025-01-01 04:01:37

对之前的答案的一点补充：您无需选择即可获取行号找到的模式，如下所示：

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。

A little addition to the previous answers: you can get the line number without selecting the pattern found, like this:

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;

Note that line number is zero-based, also you should subtract 1 from Pos result to obtain zero-based offset for SendMessage and TMemo.SelStart.

回复收藏 0 原文

~没有更多了~