Fórum Treeview filhos dos filhos #325714

CREATE TABLE TREEVIEW_ITEMS(
CODIGO INTEGER NOT NULL,
TEXTO VARCHAR(40),
ITEM_MESTRE INTEGER,
CONSTRAINT "PK_TREEVIEWITEMS" PRIMARY KEY("CODIGO")
);

procedure TForm1.FormCreate(Sender: TObject);
var tmp: TTreeNode;
begin
   tmp := TreeView1.Items.Add(nil,´Raiz´);
   CarregaItens(tmp,0);
end;

procedure TForm1.CarregaItens(Parent: TTreeNode; Codigo: Integer);
var TN: TTreeNode;
      TmpIBSQL: TIBSQL;
begin
   TmpIBSQL := TIBSQL.Create(nil);
   with TmpIBSQL do
   begin
      Transaction := IBTransaction1;
      Database := MainForm.Database;
      if not Transaction.Active then Transaction.StartTransaction;
      Close;
      SQL.Clear;
      SQL.Add(´SELECT CODIGO, TEXTO FROM TREEVIEW_ITEMS´);
      SQL.Add(´WHERE ITEM_MESTRE=:COD´);
      ParamByName(´COD´).AsInteger := Codigo;
      ExecQuery;
      while not eof do
      begin
         TN := TreeView1.Items.Add(Parent,Fields[1].AsString,nil);
         CarregaItens(TN,Fields[0].AsInteger);
         //
         Next;
      end;
   end;
   FreeAndNil(TmpIBSQL);
end;