Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Delphi » Excepciones

Delphi - Excepciones

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Excepciones

Publicado por Ragaru (46 intervenciones) el 29/04/2012 19:27:11
Deseo multiplicar el contenido de un Edit1 por el de un Edit2 siempre que el Edit1 NO
esté en blanco.

Para ello usando Try he escrito el siguiente codigo :
Try
T1 := StrToInt(Edit1.Text) * StrToInt(Edit2.Text);
except on Edit1.Text := ' ';

Aparece el error : Edit1 is not a type identifier.

Si alguién me puede ayudar en como resolver el tema, quedaré muy agradecido.

Atentos saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 65
Oro
Ha mantenido su posición en Delphi (en relación al último mes)
Gráfica de Delphi

Excepciones

Publicado por E.T. (1244 intervenciones) el 30/04/2012 17:55:22
La estructura básica de un bloque try, es la siguiente

1
2
3
4
5
Try
//Codigo a probar

Except
//Codigo a ejecutar si ocurre un error

Edn;

En tu ejemplo
1
2
3
4
5
Try
T1 := StrToInt(Edit1.Text) * StrToInt(Edit2.Text);
except
Edit1.Text := '';
End;

O esto tambien funciona
1
2
3
4
5
//Declara estas variables

V1, V2: extended;
 
if (Trim(Edit1.text) <> '') and (TryStrToFloat(Edit1.text, V1) and (Trim(Edit2.text) <> '') and (TryStrToFloat(Edit2.text, V2))) then
  T1 := V1*V2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar