Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ¿Hay alguna función ya hecha para comprobar si un texto se puede convertir a número? (https://www.clubdelphi.com/foros/showthread.php?t=62107)

noob 04-12-2008 11:53:25

¿Hay alguna función ya hecha para comprobar si un texto se puede convertir a número?
 
Tengo que coger datos de un TEdit y he pensado en hacer una función que lea el texto caracter a caracter y vaya comprobando si cada caracter es un número pero tal vez exista alguna función que ya haga esto.

Caro 04-12-2008 13:04:05

Hola, tienes la función TryStrToInt que te puede servir.

Código Delphi [-]
var
  entero : Integer;
begin
 if TryStrToInt(Edit1.Text, entero) then
  showmessage('Si es entero')
 else
  showmessage('No es entero');

Saluditos

coso 04-12-2008 13:14:08

Hola, esto tambien te funcionaria :

Código Delphi [-]
function IsNumber(s : string) : boolean;
var
        i : integer;
begin
        result := true;
        for i := 0 to Length(s)-1 do
        result := result and (s[i] in ['0'..'9','+','-','.',',']);
end;

noob 04-12-2008 13:15:13

Muchísimas gracias.

Casimiro Notevi 04-12-2008 16:44:41

Cambia esto:
Código:

for i := 0 to Length(s)-1 do
por esto otro:
Código:

for i := 1 to Length(s) do

coso 04-12-2008 19:06:46

Ahiva, es verdad, siempre pensando en C

Casimiro Notevi 05-12-2008 01:14:51

Cita:

Empezado por coso (Mensaje 329666)
Ahiva, es verdad, siempre pensando en C

Yo también necesité mucho tiempo para quitarme esa costumbre :)

egostar 05-12-2008 01:44:24

Cita:

Empezado por Casimiro Notevi (Mensaje 329795)
Yo también necesité mucho tiempo para quitarme esa costumbre :)

Como no se te quite esta costumbre :D:D:D

Salud OS


La franja horaria es GMT +2. Ahora son las 01:36:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi