No me funciona TRY - EXCEPT - END
 

Hola amigos, estoy tratando de probar el uso de excepciones, pero seguramente hay algo que estoy haciendo mal.
En el siguiente ejemplo, esperaba que no me apareciera ningún mensaje de error, pero me aparece:
"...Exe raised exception EDivByZero with message 'Division by Zero'..."

Código Delphi [-]
procedure Tfrm_clientes.b_ErrorClick(Sender: TObject);
var
  a,b,c: Integer;
begin
  a := 15;
  b := 0;
  try
    c := a div b;
    txtCodigo.Text := IntToStr(c);
  except
    on EDivByZero do
      txtCodigo.Text := 'cero';
  end;

end;

¿Qué estoy haciendo mal?
(Trabajo con Delphi 7)
Les agradezco desde ya por su tiempo.

el error te lo lanza cuando estas en tiempo de depuración?

Si, el error aparece cuando ejecuto el programa desde Delphi. Acabo de probar el ejecutable y en ese caso funciona perfecto.

Es normal eso?

De todas formas ya me quedo tranquilo, obviamente la idea es que no le aparezca el error al cliente.

Gracias!!!

Hola,

Si vas al menu Tools-> Debugger Option->Language Exceptions, verás que abajo hay una marca que reza: "Stop on Delphi Exceptions", si la desactivas, es probable que no te aparezca ese mensaje.

Saludos

Perfecto !!!!

Gracias Poliburro y Bicho por sus respuestas!!!

No es recomendable que desactives las opciones del debuger, pues la idea es precisamente esa, que mientras depures, puedas visualizar los errores, aún los controlados.

Cabe apuntar que es normal (y de hecho es útil) que te muestre ese error si estas depurando el programa, lo que no seria normal es que te lo mostrara en la ejecución normal del programa (Osea cuando lo ejecutas solito, sin el IDE de Delphi abierto)...

Tienen razón, de hecho despues de probarlo, volví a tildar la opción de que me muestre los errores, como Uds. dicen, esa es justamente la finalidad.

Gracias otra vez.

Hola
Es muy cierto, da errores en tiempo de ejecucion, pero que pesados son, no se si sere demasiado perfeccionista pero aborrezco estos erroes, siempre trato de buscar otra manera de hacer lo mismo, porque hoy me acuerdo del porque me da el error, dentro de unos meses se ma habra olvidado y a comenzar de nuevo.
Me ha pasado varias veces, y simpre busco otra solucion, nunca dejo el error ahi.
Es preferible romperse la cabeza dos dias que dejar un error o algo asi porque si.
Saludos

Totalmente de acuerdo contigo caral

Muy de acuerdo amigo Caral, lo que yo haria es lo siguiente:

Código Delphi [-]
procedure Tfrm_clientes.b_ErrorClick(Sender: TObject);
var
  a,b,c: Integer;
begin
  a := 15;
  b := 0;
  if b <> 0 then begin
     c := a div b;
     txtCodigo.Text := IntToStr(c);
  end
  else begin
           ShowMessage('ERROR xyz: Divisón cero');
  end;
end;

Los try...except me resultan mas útiles en cuestiones no controlables a primera vista, pero bueno, quien soy yo para dar consejos de usar o no un try.

Salud OS.

Estoy de acuerdo con vos Egostar, el código era sólo un ejemplo porque la idea era aprender a utilizar las Excepciones.

Gracias.

Hola

Simplemente un Maestro, te parece poco.
Saludos Maestro.

Hombre amigo Caral, muchas gracias, pero para ser maestro me hace falta todo, estoy a años luz de los maestros de aqui.

Salud OS.