[ucoz.desinder999]

Здравствуйте
Вот такой интересный вопрос, как можно нажать на ссылку зная её имя но не полностью, например для нажатия в google.ru на ссылку "Языковые инструменты" я использовал такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var  i:integer;
s:string;
mylink:olevariant;
begin
try
for i:=0 to form5.WebBrowser1.OleObject.Document.links.Length - 1 do
begin
s:=form5.WebBrowser1.OleObject.Document.links.Item(i).InnerText;
if s='Языковые инструменты' then
begin
mylink:=form5.WebBrowser1.OleObject.Document.links.Item(i);
form5.WebBrowser1.Navigate(mylink);
end;
end;
except
end;
end;

он работает прекрасно, но как его можно переделать так что бы нажать на ссылку зная не полностью её имя например не "Языковые инструменты" а "инструменты"
Буду благодарен за помощь

[ucoz.desinder999]

всё вопрос закрыт, есть решение