Saber si una cadena es un número válido

[[egostar]]

Empezado por rauros

Okey, ahora tengo esto:

Código Delphi [-]
if TryStrToInt(Edit1.Text, num1) and TryStrToInt(Edit2.Text, num2) then begin
num3:=num1 + num2;
num3 := StrtoInt(label5.caption);
end
else
edit1.text:= '';
edit2.Text:= '';
end;

Hasta que no pulso el botón que carga esto bien. Después me da un error muy pesado. It's not a valid integer value o algo parecido.

Creo que tu problema es este

Código Delphi [-]
num3 := StrtoInt(label5.caption); //Label5 me imagino que tiene algún dato o esta vacio.

Y creo que lo que quieres asignar el resultado de la suma al Label5.

Código Delphi [-]
Label5.Caption := InttoStr(Num3); // Es el proceso inverso de StrtoInt

Salud OS

[[Delphius]]

rauros, tu problema se explica muy fácil:

Las funciones XxxToYyy lo que hacen es convertir el tipo xxx al tipo Yyy, siempre y cuando no produzca un error (mejor dicho excepción).

TryXxxToYyy lo que hace es prevenir esas excepciones y sino detecta error la almacena en la variable.

La ayuda es muy clara, si entiendes inglés.

Saludos,

[rauros]

Okey. Como pienso que xxxtoyyy será IntToStr como StrToInt es, cuando se pueda. Pero con esto no me funciona.

Código Delphi [-]
begin
if TryIntToStr(Edit1.Text, num1) and TryIntToStr(Edit2.Text, num2) then begin
num3:=num1 + num2;
num3 := IntToStr(label5.caption);
end
else
edit1.text:= '';
edit2.Text:= '';
end;

De todos modos lo busqué en la ayuda rápida pero no existe ningun trytoint...

[[Ivanzinho]]

deberías cambiar

Código Delphi [-]
num3 := IntToStr(label5.caption);

por

Código Delphi [-]
label5.caption := StrToInt(num3);

Un saúdo.

[rauros]

Vale. Probando y probando lo he resuelto. Muchísimas gracias.

[dec]

Hola,

Empezado por rauros

Pero con esto no me funciona.

Es bueno que cuando algo no funcione y se plantee el asunto en los foros se copie exactamente el mensaje o mensajes de error que nos encontramos. Y explicar cuanto se pueda el error, si ocurre en tiempo de diseño, si en tiempo de ejecución, en fin. Hazte a la idea que decir "no me funciona" no aporta nada de información y así es complicado tratar de ayudarte.

[[Ivanzinho]]

Empezado por rauros

De todos modos lo busqué en la ayuda rápida pero no existe ningun tryintto...

¿Qué versión de Delphi estás utilizando?, creo que esa función está disponible a partir de Delphi 6. Si tienes una anterior tendrás que crear tu la función con un bloque try .. except .. end como te comentan en un post anterior.

Un saúdo.

[[egostar]]

Ya leiste lo que se dijo en el post numero 18 y en el 21 ????

Salud OS