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

[[egostar]]

Empezado por rauros

No no eso no. Quiero comprobar que si lo que hay escrito en edit1.text es un numero o es otra cosa.

Ya ves la importancia del titulo de los hilos?

Ya hay algunos hilos donde se comenta eso mismo, al final de este hilo hay varios hilos que te pueden ayudar.

Salud OS

[dec]

Hola,

Empezado por egostar

Ya ves la importancia del titulo de los hilos?

Ya hay algunos hilos donde se comenta eso mismo, al final de este hilo hay varios hilos que te pueden ayudar.

Antes o después de que yo lo editase, porque (ya no lo recuerdo) el título del hilo no iba muy acorde con el tema. Hay que revisar la guía de estilo rauros.

[[egostar]]

Empezado por dec

Hola,



Antes o después de que yo lo editase, porque (ya no lo recuerdo) el título del hilo no iba muy acorde con el tema. Hay que revisar la guía de estilo rauros.

El titulo original era Pregunta Rápida

Salud OS

[rauros]

Si conozco la respuesta rápida, pero lo que no conozco es si el nombre de la función era esa. De todos modos, al buscar strtoint me salen unas cosas que me dan dolor de cabeza, lo siento pero estaré por lo menos dando por culo un mes por aquí :S . Es que hasta que no aprenda el lenguaje no voy a poder usar la ayuda rápida...

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

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