Delphi - Excepciones

   
Vista:

Excepciones

Publicado por Ragaru (33 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

Excepciones

Publicado por E.T. (1106 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