procedure TForm1.Button1Click(Sender: TObject);
var p:integer;
begin
memo1.HideSelection:=false;
if finddialog1.Execute then
begin
p:=pos(finddialog1.FindText,memo1.Text);
if p>0 then begin
memo1.SelStart:=p-1;
memo1.SelLength:=length(finddialog1.FindText);
end;
end;
end;
Поиск >.<
Как сделать поиск текста, и когда найдет, нужный чтоб он выделил найденный текст.
Компоненты: Memo1 и FindDialog1.
Компоненты: Memo1 и FindDialog1.
как найти знаю,а выделить - нет ( ,самому интересно )
ну, например:
Memo1.SelStart:=2;
Memo1.SelLength:=3;
----
выделяет текст длинной 3 символа начиная со второго символа
Memo1.SelStart:=2;
Memo1.SelLength:=3;
----
выделяет текст длинной 3 символа начиная со второго символа
Большое спасибо!