[VaLkA]

Я думаю, что у меня тупой вопрос, но я этого сделать не могу...
Значит осуществляется поиск слов в webbrowser.
Вводим одно слово, нашли его, выделили.
Вводим другое слово его тоже нашли, выделили, и первое слово тоже так и остается выделенным, как сделать, чтобы текст в webbrowser перед каждым поиском обнавлялся


procedure Tform1.SearchAndHighlight(aText: string);
var
tr: IHTMLTxtRange;
begin
if not WebBrowser1.Busy then
begin
tr := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
while tr.findText(aText, 1, 0) do
begin
tr.pasteHTML('<span style="color: red; font-weight: bolder;">' +
tr.htmlText + '</span>');
tr.scrollIntoView(True);
end;
end;
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if searchedit1.Text<>'' then
form1.SearchAndHighlight(searchedit1.Text);
end;

[Decoding]

Интересно, почему я знал, что ты задашь этот вопрос?

Перед первым поиском сохрани текст страницы (http://decoding.narod.ru/faq/compone...er001.html#008), а потом, перед следующим поиском, восстанови сохраненный ранее текст (http://decoding.narod.ru/faq/compone...er001.html#001).

[VaLkA]

какой ты догадливый
только, если честно я не совсем поняла как это сделать....

[Decoding]

Нужен пример?

[VaLkA]

нужен буду очень благодарна

[Decoding]

ок, загляни сюда через часик…

[VaLkA]

спасибо, очень помог