Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-12-2008
noob noob is offline
Miembro
 
Registrado: sep 2008
Posts: 212
Poder: 16
noob Va por buen camino
¿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.
Responder Con Cita
  #2  
Antiguo 04-12-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #3  
Antiguo 04-12-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Poder: 0
coso Va por buen camino
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;
Responder Con Cita
  #4  
Antiguo 04-12-2008
noob noob is offline
Miembro
 
Registrado: sep 2008
Posts: 212
Poder: 16
noob Va por buen camino
Muchísimas gracias.
Responder Con Cita
  #5  
Antiguo 04-12-2008
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cambia esto:
Código:
for i := 0 to Length(s)-1 do
por esto otro:
Código:
for i := 1 to Length(s) do
Responder Con Cita
  #6  
Antiguo 04-12-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Poder: 0
coso Va por buen camino
Ahiva, es verdad, siempre pensando en C

Última edición por coso fecha: 04-12-2008 a las 20:12:16.
Responder Con Cita
  #7  
Antiguo 05-12-2008
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por coso Ver Mensaje
Ahiva, es verdad, siempre pensando en C
Yo también necesité mucho tiempo para quitarme esa costumbre
Responder Con Cita
  #8  
Antiguo 05-12-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Yo también necesité mucho tiempo para quitarme esa costumbre
Como no se te quite esta costumbre

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Se puede convertir el formato de quickreport para abrirlo con excel??Gracias yomismo Impresión 8 16-08-2007 00:12:36
Alguna funcion para redondear?? atapia Varios 3 30-06-2007 19:58:58
Funcion para convertir cantidades numericas a letras omarifr API de Windows 3 16-04-2006 19:20:50
Necesito un favor..Quien puede hacer una funcion para Base Firebird pani_alex Firebird e Interbase 8 12-04-2006 15:26:25


La franja horaria es GMT +2. Ahora son las 04:19:04.


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
Copyright 1996-2007 Club Delphi