Ver Mensaje Individual
  #2  
Antiguo 27-11-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Reputación: 22
Bicho Va por buen camino
Hola, pues existen muchas respuestas posibles para tu problema. Ahí van unas cuantas:

- Comprobar si el edit contiene texto alguno, es decir, sino está en blanco.
Código Delphi [-]
if edit1->text <> '' then //... aque haces tu StrToInt
else // puedes ignorarlo o mostrar un mensaje de error ShowMessag('debe introducir algún numero');

- Otra, la que tu has comentado, poner a 0 por defecto los edits, o comprobar que si no insertan nada lo deje a 0. Eso lo puedes hacer en el OnExit del Edit. Pones esto:
Código Delphi [-]
if edit1->text <> '' then edit1->text = '0';

- La otra que pides, es la de personalizar el mensaje de error. Esa viene incluida en la primera respuesta que te he dado.

Como ves, hay múltiples soluciones, tú eliges o combinas y las adaptas a tu programa.

Espero te sirva.

Saludos
Responder Con Cita