Treeview

[Guest Joao Victor]

Bem.... alguém poderia me passa algum exemplo ou código de como eu poderia fazer para preencher uma TreeView via código com dados de um banco de dados.

Exemplo:

Tabela pai: CodPai, DescPai

Tabela Filho: CodFilho, CodPai, DescFilho.

na tabela filho eu terei mais de um registro com o mesmo CodPai.

Exemplo:

[Guest Donatelo]

Será que alguém poderia me ajudar com isso?!

[Fred_delphi]

{para os itens "Raiz" o 'node' sera sempre nil,

e cada item que você icluir recebera um index,

assim voce inclui o todos os itens raiz e depois

acrescente os sub itens na ordem inversa (debaixo para cima)

para não ter problema de incluir no index errado}

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

begin

Table1.Filtered := true;

Table1.IndexName := 'tipo';

Table1.Filter := 'tipo = ''pai''';

Table1.First;

//aqui você inclui os pais

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,'pai 1'); // pai 1 e pai 2 pode ser substituido por um campo na tabela

TreeView1.Items.Add(nil,'pai 2');

//aqui você filtra pelo o ultimo pai da lista e inclui seus filhos e assim por diante

for i := TreeView1.Items.Count - 1 downto 0 do

begin

Table1.Filter := 'tipo = ''' + TreeView1.Items.Text + '''';

Table1.First;

while not Table1.Eof do begin

TreeView1.Items.AddChild(TreeView1.Items,Table1filho.AsString);

Table1.Next;

end;

TreeView1.Items.Expand(true);

end;

end;

{ sou meio iniciante, não sei se tem formas mais simples de resolver este problema,

mas eu fiz assim no meu prog e deu certo.

qualquer duvida me mande um email que tentarei te ajudar fred_fa@yahoo.com.br}