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

[saldanaluis]

Les agradecería si alguien me puede abrir los ojos en este punto. Tengo un codigo con try... except que no esta tomando la excepción y la maneja el handler interno.. Les pongo el código que tengo..

Código Delphi [-]
 
procedure TFrmTransacs.EdtCostoUnExit(Sender: TObject);
begin
Try
  Costo_Unit_Trans := StrtoFloat(EdtCostoUn.Text);
except
  on EConvertError do
    begin
    ShowMessage(EdtCostoUn.Text + ' No es un valor numerico. Favor de corregir');
    EdtCostoUn.SetFocus;
    end;
end;
end;

Gracias por sus respuestas y comentarios.
Luis

[jhonny]

Cuando estas fuera de diseño también te muestra el error?...Pues lo probé en mi Delphi 6 y a mi me funciona bien, pruebalo fuera del IDE de delphi y si sigue el problema haz lo siguiente y dinos si te muestra algún error en pantalla, pues puede que sea otra cosa mas no la que explicas:

Código Delphi [-]
 
procedure TFrmTransacs.EdtCostoUnExit(Sender: TObject);
begin
  Try
    Costo_Unit_Trans := StrtoFloat(EdtCostoUn.Text);
  except
    on EConvertError do
    begin
      ShowMessage(EdtCostoUn.Text + ' No es un valor numerico. Favor de corregir');
    EdtCostoUn.SetFocus;
    end
    else
    begin
      raise;
    end;
  end;
end;

[HenryAraniva]

no se si ya has probado ese codigo corriendo el ejecutable, es decir estando fuera de delphi. Cuando yo he usando el try si estoy editando el codigo y desde ahí lo ejecuto parece que el manejo de los errores no funcionara pero cuando ejecuto el .exe ahí si veo los mensajes de error que he escrito, no se si ese será tambien tu caso.

[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;