Fórum Procedure recursivo fecha-me o dataset #290010

procedure fazmenu; 
begin
  ibquery.open; 
  try
    while not ibquery.eof do
    begin
      if tipo = ´M´ then 
        montamenu(codigo,nil); 
      ibquery.next ;
    end;
  finally
    ibquery.Close;
  end;
end; 

procedure montamenu(codigo : int; menu : titemmenu);
begin 
  Qrmenu.sql.clear;   
  Qrmenu.sql.add(´Select menu where codigo = codigo´ break by ordem´);   // <== não conheço essa cláusula break 
  QrMenu.open; 
  try
    while not Qrmenu.eof do 
    begin 
      if (qrmenu.FieldByName(´tipo´).Value = ´P´) then //programa 
      begin 
        NovoItem := TMenuItem.Create(MainMenu1); 
        NovoItem.Caption := MenuCaption; 
        MainMenu1.items.Add(novoitem); 
      end; 
     else if qrmenu.FieldByName(´tipo´) = ´S´ then //submenu 
       montamenu(codigo,novoitem); 
    end; 
  finally
    Qrmenu.Close;
  end; 
end; 

procedure TForm1.MontaMenu(Grupo: String; Menu: TMenuItem);
var
  Item: TMenuItem;
begin
  qry.SQL.Clear;
  Qry.SQL.Add(´SELECT * FROM menu WHERE GRUPO = ´ + Grupo + ´ORDER BY ORDEM´);

  Qry.Open;
  try
    while not Qry.Eof do
    begin
      Item := TMenuItem.Create(nil);
      Item.Caption := Qry.FieldByName(´TEXTO´).AsString;
      Item.Tag := Qry.FieldByName(´CODIGO´).AsInteger;

      try
        if Qry.FieldByName(´TIPO´).AsString = ´M´ then
        begin
          Menu1.items.Add(item);

          if x2ficheiro1 <> nil then
            x2ficheiro1.Free;

          menu := menu1.Items[qrymenu.FieldByName(´NIVEL´).asinteger];
        end
        else if Qry.FieldByName(´TIPO´).AsString = ´S´ then
        begin
          Menu.Add(Item);
          MontaMenu(Qry.FieldByName(´link´).AsString, Item);
        end
        else if Length(Trim(Qry.FieldByName(´LINK´).AsString)) > 0 then
        begin
          Menu.Add(Item);
          Item.OnClick := MenuClick;
        end;
      except
        showmessage(´Erro ao criar ponto de menu´ + #13 + ´ID: ´ + Qry.FieldByName(´CODIGO´).AsString );
      end;

      Qry.Next;
    end; // while not
    item := nil;
  finally
    Qry.Close;
  end;
end;

procedure TForm1.MenuClick(Sender: TObject);
var
  Menu: TMenuItem;
  Txt: String;
  Qry: TQuery;
  Frm: TForm;
  Frc: TformClass;
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  menu: TMenuItem;
  i : integer;
begin
  i := 0; //<== Variável sem utilidade nenhuma.

  qryMenu.Close;
  qrymenu.SQL.Clear;
  qrymenu.SQL.Add(´SELECT * FROM menu WHERE tipo = ´´M´´ ORDER BY nivel´);
  qrymenu.Open;

  while not qrymenu.Eof do
  begin
    try
      menu := menu1.Items[0];
      MontaMenu(qrymenu.FieldByName(´GRUPO´).AsString, menu);
      i := i + 1;
    except
      showmessage(´Erro ao criar menu´);
    end;
    qrymenu.Next;
  end;
end;

procedure TForm1.MontaMenu(Grupo: String; Menu: TMenuItem);
var
  Item: TMenuItem;
  Qry: TQuery;
begin
  Qry := TQuery.Create(Self);
  try
    // Ajuste a linha abaixo com o DatabaseName correto
    Qry.DatabaseName := ´NomeDoDatabase´;
    Qry.SQL.Add(´SELECT * FROM menu WHERE GRUPO = ´ + Grupo + ´ORDER BY ORDEM´);

    Qry.Open;
    try
      while not Qry.Eof do
      begin
        ...
          { Esta chamada recursiva cria outro componente Qry,
             mantendo aberto o que foi criado no escopo atual }
          MontaMenu(Qry.FieldByName(´link´).AsString, Item);
        ...
        Qry.Next;
      end;
    finally
      Qry.Close;
    end;
  finally
    Qry.Free;
  end;
end;

Não entendi porque vocês desconsideraram a resposta correta do Kotho!

Quando você chama recursivamente o procedimento "MontaMenu" de dentro do loop pelos dados do componente denominado "Qry", logo na primeira linha do "MontaMenu" a chamada recursiva fecha automaticamente o "Qry" por limpar o conteúdo da sua propriedade "SQL" (Qry.SQL.Clear;). Para conseguir fazer essa chamada recursiva é preciso ter uma variável local no procedimento "MontaMenu" do tipo "TQuery" (ou outro que seja utilizado). Veja uma parte do código modificado:

var
  Qry: TIBQuery;
begin
  Qry := TIBQuery.Create(Self);
  try
    Qry.Database := IBDatabase1;
    Qry.Transaction := IBTransaction1;
    Qry.SQL.Add(´SELECT * FROM menu WHERE GRUPO = ´ + Grupo + ´ORDER BY ORDEM´);
    ...