try

[chipsoni]

Lo que quiero hacer es muy sencillo y no entiendo que hago mal.
Quiero poder borrar una entrada a una tabla, pero tengo otra tabla que la usa como clave foranea y evidentemente salta una excepcion.
Quiero capturar esa excepcion y lanzar un mensaje que diga que esa entrada no se puede borrar.
Pongo el try al principio del codigo que quiero controlar y despues pongo un:

try
{codigo a controlar}
except
on EMySqlException do showmessage('mi mensaje personalizado');
end;

y sigue no funciona, salta el mensaje de excepcion del mysql y casca la aplicacion, ¿que hago mal?.

[mensana]

Empezado por chipsoni

try
{codigo a controlar}
except
on EMySqlException do showmessage('mi mensaje personalizado');
end;

Posibilidad 1:
El código no lanza excepciones. Si ocurre esto, entonces debes revisar los eventos de error de la tabla/query/dataset/...

Posibilidad 2:
La excepción generada no es la que intentas capturar. Para comprobarlo, puedes capturar todas las excepciones (usando la clase "Exception") y comprobar el valor de E.ClassName.

[chipsoni]

Pues si que lanza una excepcion, porque peta la aplicacion y sale una ventana diciendo exactamente que no puedo borrar una linea padre, porque hay otra tabla que la usa y me da el nombre de excepcion EMySqlException y hasta el numero de exception, justo cuando peta, pero claro, el mensaje es muy tecnico para lanzarselo al cliente final y ademas es que me peta la aplicacion y esa no es la idea.

Quiero capturarlo, lanzarle un mensaje mas amigable y no borrar la entrada.

¿Alguna otra idea?, me he leido toda la ayuda del delphi y sigo sin encontrar el fallo.

Muchas gracias.

[[Lepe]]

Será mejor que pegues el código exacto. Lo que ocurre es la posiblidad 1 pero con una variante, las instrucciones en {codigo a controlar} realmente no lanzan la excepción, sino que dicha excepción se produce como fallo colateral de ese código a controlar

Sería muy conveniente decir qué base de datos usas, qué componentes usas para acceder a esas tablas (BDE, ADO, IBX, etc) y el código exacto que estas usando; ya que la filosofía que usas es la correcta, pero puede haber detalles que se escapen.

Saludos

[kalimero]

Hola.

Código Delphi [-]
try
  //codigo a controlar
except
  on E:Exception do
  begin
   Dataset.cancel;
   Showmessage('Mensaje personalizado');
  end;
end;

De todas forma,tal y como dice Lepe, serai conveniente que dieras mas informacion: Sistema deBD,componentes,etc,etc

Saludos

[epuigdef]

Buenas!

A parte de lo que te han comentado, ten en cuenta que si ejecutas el programa desde el IDE de Delphi te va a saltar el mensaje "feo" de todas formas. Prueba de ejecutar la aplicación desde fuera del IDE y a lo mejor ves que no es tal error. El lanzamiento de las excepciones dentro del IDE se pueden deshabilitar, pero no recuerdo cómo.

Un saludo

Edu