try ... except... no toma la excepcion

[saldanaluis]

Gracias por sus respuestas... Efectivamente, cuendo ejecuto el .exe fuerra del IDE si toma la excepción y envía el mensaje que le codifiquè.
¿Quiere decir que esto es un error del Delphi7 que estoy utilizando? ¿Es alguna opción del IDE que no he activado? Gracias nuevamente.

[jhonny]

Empezado por saldanaluis

Gracias por sus respuestas... Efectivamente, cuendo ejecuto el .exe fuerra del IDE si toma la excepción y envía el mensaje que le codifiquè.
¿Quiere decir que esto es un error del Delphi7 que estoy utilizando? ¿Es alguna opción del IDE que no he activado? Gracias nuevamente.

No es error de Delphi, lo que sucede es que para nosotros los que programamos nos interesa ver los errores "reales" del asunto dado el caso de que sea necesario, en este caso la idea es que el usuario final no vea el error, si no mas bien un mensaje personalizado por ti mismo, pero para ti si puede ser de utilidad que te muestre el error "Real". En todo caso si no te convencen mis argumentos podrás desactivar el asunto quitando el visto bueno que se encuentra en: Tools|Degger Options|Language Exceptions y desactivas el CheckBox llamado "Stop on Delphi Exceptions"... Espero me haya hecho entender y que te sirva.

[[eduarcol]]

Creo que antes de que salte la excepcion porq no pruebas con la funcion StrtoFloatDef es mucho mas facil de utilizar, seria algo asi

Código Delphi [-]
Costo_Unit_Trans := StrtoFloatDef(EdtCostoUn.Text, -1);
if Costo_Unit_Trans = -1 then
begin
   ShowMessage(EdtCostoUn.Text + ' No es un valor numerico. Favor de   corregir');
   EdtCostoUn.SetFocus;
end;