Delphi - 在大型TMemo中查找文本

Question

I have a TMemo which contains quite a lot of texts , 80M (about 400K lines).

The TMemo is set with WordWrap = FALSE, there is no need to find texts that wrapped in 2 lines.

I need a fast way to find a text, from the beginning, and also find next.

So, I put a TEdit for putting the text to find and a TButton to find the text in the TMemo.

I was thinking to use Pos(), checking line by line, but that will be slow. And I don't know how to determine the TMemo.Lines[index] for current cursor position.

Anyone can come up with solution?

Thanks

UPDATE:

I found a solution from here: Search thru a memo in Delphi?

The SearchText() function works, fast, and very fast. Took couple of seconds to search unique string at the bottom end.

Answer 1

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 .