Цитата:
Сообщение от Страдалецъ
Собственно там особо и делать нечего если нужно искать только первое вхождение:
Код:
procedure TForm24.FindDialog1Find(Sender: TObject);
begin
Memo1.SelStart := Pos(FindDialog1.FindText,Memo1.Text)-1;
Memo1.SelLength := Length(FindDialog1.FindText);
Memo1.SetFocus;
end;
А вот если надо реализовывать продолжение поиска, тогда уже чуток посложнее.
|
помоги мне нцжно ищё продолжения поиска, я пробувал чё то у меня не выходит!