Ver Mensaje Individual
  #4  
Antiguo 29-12-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow Agregando una tercera opcion

Una tercera opcion seria capturar el error en una variable de tipo Exception, y agregarle lo que quisieramos o personalizar el mensaje de error.
Código Delphi [-]
 try
    try
      MysqlConecta.Connect;//aqui intento conectarme
    except on MyVariable : Exception do//aqui capturo el error 
     begin
      MyVariable.Message:='Error en la Conexion.'+#13+#10+'Detalles -->'+#13+#10+'"'+MyVariable.Message+'"';
      txtInfo.Lines.Add(MyVariable.Message); 
     end;
    end;
 finally
     if MysqlConecta.Connected then
        txtInfo.Lines.Add('Conexion exitosa');
 end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7

Última edición por rgstuamigo fecha: 29-12-2009 a las 17:05:36.
Responder Con Cita