[wergut]

Проблема, криво работает поиск,

Код:

procedure TForm1.Edit1Change(Sender: TObject);
 var
  fnd:boolean;
  i:integer;
 begin

  fnd:=False;
   for i:=0 to TV.Items.Count-1 do
  begin
    if Pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(TV.Items[i].Text))>0 then
    begin
      TV.Items.Item[i].Selected:=True;

     // TV.SetFocus;
      fnd:=True;
      break;
    end;
  end;
 if not fnd then
 if edit1.Text = '0' then
  ShowMessage('Òàêîãî ïðåïàðàòà íå ñóùåñòâóåò!');
 end;

Начинаю вводить в едит символы, после первого символа фокусит на дерефо, да, но выделения и развертывания не происходит, где я допустил ошибку, помогите пожалуйста, как исправить..

[wergut]

TV.Items[i].MakeVisible; нашел как выделить и раcкрыть ветвь с искомым элементом
TV - treeview

[Alegun]

Оффтоп/Совет: Если копируете из редактора текст с кириллицей, то перед этим включите русскую раскладку клавиатуры