我有一个包含很多文本的TMemo,80M(约400K行).
TMemo设置为WordWrap = FALSE,无需查找包含2行的文本.
所以,我把一个TEdit用于放置文本以找到一个TButton来查找TMemo中的文本.
我正在考虑使用Pos(),逐行检查,但这将是缓慢的.
我不知道如何确定当前光标位置的TMemo.Lines [index].
任何人都可以提出解决方案吗？
谢谢
更新：
我从这里找到了一个解决方案：
Search thru a memo in Delphi?
解决方法
对
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的从零开始的偏移量.