Zdravím.
Už 2 dny se trapim s vyhledavaním textu v komponentě Memo.
Da se toho vygoglit hodně ale bud to nefunguje spolehlině nebo to furt dokola najde první text od vrchu.
Nevite o něčem spolehlivem co mate odskoušene.

Toto třeby furt dokola nachazi první text od vrchu a fal nejde.

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;

Chci něco jak třeba v PSPadu
Zadam text do editu a pak třeba klikanim na buton prolezu cely text a postupně se obarvuje vybrany text.