[Resolvido] Tree View

[Jerfs 1]

Galera seguinte: Tenho um treeview que está da seguinte forma:

 

ITEM1

SubItem1.1

SubItem1.2

SubItem1.3

SubItem1.4

ITEM2

SubItem2.1

SubItem2.2

 

Quero que quando o usuário selecione um subitem, eu consiga saber quantos subitems existem dentro do mesmo grupo e construa uma string com todos eles, por exemplo, o usuário clicando em SubItem1.1 eu teria uma string dessa forma:

 

SubItem1.1;SubItem1.2;SubItem1.3;SubItem1.4;

 

Alguém me ajude por favor, estou quebrando a cabeça com isso....

 

Muito obrigado

[marcio.theis 3]

Pode fazer da seguinte forma:

 

 

procedure TForm1.BitBtn1Click(Sender: TObject);
var
	nodoAtual: TTreeNode;
	continuar: boolean;
	lista: string;
	x: integer;
begin
continuar:=True;
nodoAtual:=TreeView.Selected;
lista:=nodoAtual.Text;
while (continuar) do
	begin
	if (nodoAtual.Count > 0) then
		begin
		for x:=0 to nodoAtual.Count - 1 do
			begin
			if (lista <> '') then
				lista:=lista + ';';
			lista:=lista + nodoAtual.Item[x].Text;
			end;
		nodoAtual:=nodoAtual.GetNext;
		end
	else
		continuar:=False;
	end;

Edit1.Text:=lista;
end;

[Jerfs 1]

FUNCIONOU PERFEITAMENTE... COMO EU QUERIA! MUITO OBRIGADO!

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif