ola pessoal, bom dia, estou com um problema sério com uma treeview, ja mandei dois e-mail para a lista e ninguém me respondeu, estou enviando novamente para ver se alguém me ajuda. Segue abaixo exemplo e código para criação da minha treeview, alguém pode me dizer onde esta o erro, pois a mesma não funciona...
exemplo: 1 procedimentos 1.1 consultas 1.1.00.000 visitas domiciliares 1.1.00.001 paciente acamado 1.1.01.000 visitas hospitalares 2 procedimentos 2.1 procedimentos hospitalares 2.1.00.000 avaliações 2.1.00.001 tunel do carpo... (se lanço esse registro, ele vai parar na sequencia do consultas... e não nessa posição.. function TFGE005G.CriaTree(node:TTreeNode) : boolean; begin IF Not QGE005G.Eof Then begin IF QGE005GE05_CODPROCEDESTR.asString = '0' Then begin aux := TreeView1.Items.AddChild(TreeView1.Items[0],QGE005GE05_NOMEPROCED.AsString+' - '+QGE005GE05_CODPROCED.AsString); // aux.Text := aux.Text + ' << Primeiro';// + IntToStr(cont); arIndex[cont] := QGE005GE05_CODPROCED.AsString; varNivel := 0; end Else begin IF varCod = QGE005GE05_CODPROCEDESTR.AsString Then begin aux := TreeView1.Items.AddChild(node.Parent,QGE005GE05_NOMEPROCED.AsString+' - '+QGE005GE05_CODPROCED.AsString); // aux.Text := aux.Text + ' << Segundo' ;//+ IntToStr(cont); arIndex[cont] := QGE005GE05_CODPROCED.AsString; varNivel := varNivel + 1; end Else IF varCod < QGE005GE05_CODPROCEDESTR.AsString Then begin aux := TreeView1.Items.AddChild(node,QGE005GE05_NOMEPROCED.asString+' - '+QGE005GE05_CODPROCED.AsString); //aux.Text := aux.Text + ' << Segundo 2' ;//+ IntToStr(cont); arIndex[cont] := QGE005GE05_CODPROCED.AsString; varNivel := varNivel + 1; end Else begin aux := TreeView1.Items.AddChild(TreeView1.Items[varNivel-varnivel+1],QGE005GE05_NOMEPROCED.AsString+' - '+QGE005GE05_CODPROCED.AsString); //aux.Text := aux.Text + ' << Terceiro';// + IntToStr(cont); arIndex[cont] := QGE005GE05_CODPROCED.AsString; varNivel := 0; end; end; varCod := QGE005GE05_CODPROCEDESTR.AsString; QGE005G.Next; cont := cont+1; aux.SelectedIndex := 1; CriaTree(aux); end; end; sem mais, e certo de uma resposta... Junior [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html