Delphi dicas

Localizando um nó pelo nome em um determinado nivel do treeview

// Neste procedimento deve-se passar o Nome para a Busca e o Nivel em

//que deseja fazer a busca



procedure TForm1.LocalizaNoNivel(NomeBusca:String; Level:Integer);

var x:Integer;

begin

        for x := 0 to TreeView1.Items.Count - 1 do  //percorre o TreeView

        begin

                if (TreeView1.Items[x].Text = NomeBusca) and  // Verifica o nome e o Nivel

                (TreeView1.Items[x].Level = Level)

                then

                begin

                        TreeView1.Items.Item[x].Selected:=True;

                        Break;

                end;

        end;

end;





//modelo de Uso

//Coloque um Button no form e no evento onclick do mesmo chame o procedimento de busca



procedure TForm1.Button1Click(Sender: TObject);

begin

        LocalizaNoNivel('Teste',1);  //Irá percorrer o Treeview procurado pela string

        //'Teste' somente no Nivel 1 do treeview

end;

por : Donizetti