Houston Houston tenemos un problema, de repente la aplicacion sobre la que estoy trabajando me da un desbordamiento de pila, decir que el trozo de codigo donde se produce dicho desbordamiento ni es un bucle ni nada, es un simple If ... else ... y lo he puesto aqui, porque me pasa al hacer el
SQL.Clear; a continuacion os pongo el fragmento de codigo donde salta el error:
Código Delphi
[-]
Begin
PSubcategorias.Visible := True;
LBSubCatDisp.Clear;
With DMAgenda.IBQEjecutar Do
Begin
SQL.Clear; <--Error
SQL.Add('Select distinct subcat from emails');
Open;
First;
While not eof Do
Begin
LBSubCatDisp.Items.Add(FieldByName('subcat').AsString);
Next;
End;
Close;
End;
LBSubCatDisp.Selected[0] := True;
If LBSubCatDisp.Count = 0 Then
Begin
BaddUnoSubCat.Enabled := False;
BAddTodasSubCat.Enabled := False;
End;
End;
Para conectar con la base de datos utilizo los IBX que trae D7 y la version de firebird es la 1.5.2, como he dicho me ha estado funcionando hasta hoy que ha salido el error y no he introducido ninguna modificacion.
Un saludo y gracias