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

[rauros]

Como se puede pedir un request de si algo es un numero?

Ex:

If edit1.text = num then

Gracias

[dec]

Hola,

Si se trata de buscar un número entero tal vez podrías utilizar la función "TryStrToInt".

[[egostar]]

Lo mas rapido que se puede contestar a tu hilo es

Lee nuestra guia de estilo

Salud OS

PD, lo de la comparación es así

Código Delphi [-]
If StrtoInt(Edit1.Text) = num then begin

end;

o

Código Delphi [-]
If Edit1.Text = IntToStr(Num) then begin

end;

[Faust]

Wow ¿cuántos mensajes responde Dec por minuto?

[rauros]

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

[dec]

Hola,

Código Delphi [-]
var
  dummy: integer;
begin
  if TryStrToInt(Edit1.Text, dummy) then
  begin
    // Edit1.Text contiene un número entero, está en "dummy"
  end
  else
  begin
    // Edit1.Text no contiene un número entero "válido".
  end;
end;

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

[rauros]

Sorry, la próxima vez pondré un titulo acorde mis peticiones de ayuda.

[Faust]

Yo recuerdo que hace muchísimo tiempo hacía esto con una función que me inventé;

Código Delphi [-]
function IsInteger(const ATexto: string)boolean;
begin
  Result:= True;
  Try
    StrToInt(ATexto)
  Except
    Result:= False
  end;
end;

O algo así, ya no me acuerdo.

[rauros]

Okey, ahora cuando intento meter en un label una suma no me deja por que dice que es string. Como transformo string a int? (longin)

He probado con StrtoInt(num3, label5.caption);

Hay que transformar num3 (int) a label5.caption (string)

[[Delphius]]

Hola rauros, la respuesta a tus duda buscando StrToInt en el buscador, y también creo hay algo llamado ayuda. Sino me equivoco se presiona F1.

Por cierto, se usa así:

Código Delphi [-]
algo := StrToInt('12');

Saludos,

[[egostar]]

Empezado por rauros

Okey, ahora cuando intento meter en un label una suma no me deja por que dice que es string. Como transformo string a int? (longin)

He probado con StrtoInt(num3, label5.caption);

Hay que transformar num3 (int) a label5.caption (string)

Código Delphi [-]
Num3 := StrtoInt(Label5.Caption);

Pero lo mejor sería hacer lo que Dec te está recomendando, así validas que pueda convertirse.

Salud OS

[[Ivanzinho]]

Pulsa F1 sobre StrToInt en el editor de código de delphi y se te abrirá una pantalla con la ayuda sobre esa función.

Un saúdo.

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

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