Fórum TreeView #367553

procedure Tfrm_Cad_Usuario.BitBtn6Click(Sender: TObject);
Var
        n0, n1: TTreeNode;
        i : integer;
begin

        n0 := TTreeNode.Create(tvw.Items);

        i := 0;

        cds_ObjDetail.First;

        While not cds_ObjMaster.Eof Do
        Begin

                n0.Text := cds_ObjMasterDESCRICAO.Value;

                tvw.Items.Add(n0, n0.Text);

                with cds_ObjDetail Do
                Begin
                        Filtered := False;
                        Filter   := ´ID_OBJETO_PAI = ´ + cds_ObjMasterID_OBJETO.AsString;
                        Filtered := True;
                End;

                While not cds_ObjDetail.Eof Do
                Begin

                        tvw.Items.AddChild(tvw.Items[i], cds_ObjDetailDESCRICAO.Value);

                        cds_ObjDetail.Next;
                End;

                cds_ObjMaster.Next;

                i := i + 1 + cds_ObjDetail.RecordCount;

        End;
end;