Manejar un Error al desconectarse MYSQL

[jandok238]

En efecto..... ya revise.... y como yo lo tenia o trataba de hacer era :

Código Delphi [-]
 if (ZConnection.Connected = False) then
 begin
   Mensaje('No hay conexion');
   Cerrar_Programa
 end;

pero siempre me detectaba esa propiedad en TRUE, aunque no estuviera conectada.....

Lo que hice, en base a la ultima respuesta de AcidRain, fue por medio de una consulta (sin sentido o una simple) para detectar si hay conexion :

Código Delphi [-]
 try 
   ZQuery.SQL.Text := 'SHOW TABLES'; 
   ZQuery.Open;
 except
   Mostrar mensaje de error;
   Cerrar la aplicacion;
 end;

Pues muchas gracias ......

Salu2!!!!!!!!

[[AzidRain]]

Como lo hiciste es lo correcto pero más que estar checando si hay o no conexión antes de cada query, debes de hacer exactamente el mismo código que pusiste pero encerrando todo lo que quieres hacer cuando si hay conexión. Se oye raro, pero esa es la belleza de lasexcepciones: programar como si todo estuviera saliendo bien y en el codigo del except poner lo necesario para cuando las cosas no salen tan bien.. ysobre todo dejar tu programa funcionando.