Вроде бы не сложно, но как то глючит.
Хочу организовать поиск как в блокноте (Cntrl-F)
Из Form6, я в Form5.RichEdit1-е при нажатии на кнопку "Искать далее" ищу текст, который находится в Form6.Edit1.text и ставлю курсор в позицию этого текста. При потворном нажатии следующуюю позицию.
Что не так в мое коде кто знает?
Код:
procedure TForm6.FormCreate(Sender: TObject);
begin
k:=0;
end;
procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
k:=0;
end;
procedure TForm6.Button1Click(Sender: TObject);
var mytext:string;
begin
// Здесь я вырезаю текст из которого буду искать. При первом нажатии k+1=1, т.е. ищется начиная с первой позиции. В следубщий раз от позиции найденного текста + 1 и так далее.
mytext:=copy(Form5.RichEdit1.Text, k+1 ,Length(Form5.RichEdit1.Text)-k-1);
k:=pos(Edit1.text, Mytext);
Form5.RichEdit1.SelStart:=k+1;
Form5.RichEdit1.Perform(EM_SCROLLCARET,0,0);
Form5.RichEdit1.SetFocus;
end;