[Prame]

Добрый день дорогие форумчане!!!
Мне нужно осуществить поиск в компоненте Tree View
У меня такой случай: Компонент Tree View у меня в программе (электронный учебник) предназначен для отображения информации (информация отображается в WebBrowser) вообщем нужно чтобы после ввода ключевого слова строка подходящая под критерий поиска,
подсветилась (не или ченить вроде етого)
P.S. просьба не скидывайте что то подобное я не могу разобратся (у меня не робит) http://articles.org.ru/cfaq/index.php?qid=1760)

Большое спс всем кто поможет или посторается помочь!

Ладно поковырялся в инете отрыл коечто...
1 часть вопроса выполнена теперь нужно организовать 2!
вот код :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
a:string;
begin
a:=Edit1.Text;
for i := 0 to pred(treeview1.items.count) do

if treeview1.items[i].Text = a then begin
showmessage('ololololololololololo'); \\здесь надо сделать так чтобы строка которую мы нашли подсветилась (ну или какнибудь по другому=))))
break;//http://files.gw.kz/tk2g2xkzv4.html
end;
end;

end.

еще раз благодарю каждого кто поможет или попытается помочь!!!

[Asinkrit]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  with treeview1 do
    for i := 0 to pred(items.count) do
      if items[i].Text = Edit1.Text then 
        begin
        SelectedItem := items[i];
        break;
        end;
end;

[Prame]

list index out bounds вот такую ошибку выдает

[BoRoV]

Код:

for i := 0 to pred(items.count) - 1 do

[Prame]

таже самая ошибка...

[lmikle]

Код:

for i := 0 to TreeeView1.items.count - 1 do

[Prame]

lmikle всё та же ошибка...

[BoRoV]

Вот отлично работает, что ты там не так делаешь, что у тебя ничего не работает. У тебя subitem'ы есть?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    if Pos(Edit1.Text, TreeView1.Items[i].Text) <> 0 then
    begin
      TreeView1.Selected := TreeView1.Items[i];
      TreeView1.SetFocus;
      break;
    end;
end;

[Prame]

BoRoV , lmikle , Asinkrit большое вам спс!!! BoRoV у меня почти ысе тольки из них состоит! Но вот последний код очень помог! еще раз спосибо!!!