在大型TMemo中查找文本
在大型TMemo中查找文本
提问于 2012-01-05 10:47:10
我有一个TMemo，包含了相当多的文本--，80M (约400 K行)。
TMemo设置为WordWrap = FALSE，不需要查找用2行包装的文本。
我需要一个快速的方法来找到一个文本，从一开始，也找到下一个。
因此，我在TEdit中放置了一个要查找文本的TButton，并在TMemo中放置了一个查找文本的TButton。
我正在考虑使用Pos()，逐行检查，但这会很慢。我不知道如何确定当前光标位置的TMemo.Linesindex。
有人能想出解决办法吗？
谢谢
更新：
我从这里找到了一个解决方案：Search thru a memo in Delphi?
SearchText()函数工作得很快，而且非常快。花了几秒钟时间在底部搜索唯一的字符串。
回答 1
Stack Overflow用户
回答已采纳
发布于 2012-01-05 12:08:35
在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的零基偏移量。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/8741186
复制相关文章
相似问题
腾讯云开发者
