[Stranger333]

Сообщение от Страдалецъ

Собственно там особо и делать нечего если нужно искать только первое вхождение:

Код:

procedure TForm24.FindDialog1Find(Sender: TObject);
begin
 Memo1.SelStart := Pos(FindDialog1.FindText,Memo1.Text)-1;
 Memo1.SelLength := Length(FindDialog1.FindText);
 Memo1.SetFocus;
end;

А вот если надо реализовывать продолжение поиска, тогда уже чуток посложнее.

помоги мне нцжно ищё продолжения поиска, я пробувал чё то у меня не выходит!