Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-11-2004
senpiterno senpiterno is offline
Miembro
 
Registrado: abr 2004
Posts: 112
Poder: 21
senpiterno Va por buen camino
Validar que sean numeros

Hola Amigos

Bueno, como dice el titulo, existe alguna funcion en Delphi que permita reconocer si una cadena de caracteres es un numero, algo asi como un IsNumeric de VB....

Cualquier ayuda se agradece
Saludos....
Responder Con Cita
  #2  
Antiguo 22-11-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Si los número son enteros, símplemente conviértelos a enteros y sino da error es que son números validos.

Código Delphi [-]
Try
nVariableEntera:=StrToInt(MiCadena);
Except
ShowMessage('El número no es válido);
end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 22-11-2004
senpiterno senpiterno is offline
Miembro
 
Registrado: abr 2004
Posts: 112
Poder: 21
senpiterno Va por buen camino
Cita:
Empezado por marcoszorrilla
...símplemente conviértelos a enteros
Es presisamente eso lo que estoy haciendo ahora, convirtieno las cadenas en numeros con StrToInt, pero queria eviar el poner una estructura Try...Except. Por lo que puedo deducir de tu respuesta no existe una funcion en Delphi que valide devolviendo un True o Flase, cuando es un numero o no...
Saludos...
Responder Con Cita
  #4  
Antiguo 22-11-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Otras formas de hacerlo

Código Delphi [-]
var
  V: Integer;

begin
  if TryStrToInt(Edit1.Text, V) then
    ShowMessage('Esto es un número')
  else
    ShowMessage('Esto no es un número');
end;

Código Delphi [-]
var
  V: Integer;
  Code: Integer;

begin
  Val(Edit1.Text, V, Code);

  if Code = 0 then
    ShowMessage('Esto es un número')
  else
    ShowMessage('Esto no es un número');
end;

La segunda forma tiene la ventaja de servir para tipos reales también sustituyendo V por un tipo real.

// Saludos
Responder Con Cita
  #5  
Antiguo 22-11-2004
senpiterno senpiterno is offline
Miembro
 
Registrado: abr 2004
Posts: 112
Poder: 21
senpiterno Va por buen camino
Gracias Roman y a ti tambien marcoszorrilla, ya solucione mi problema gracias a su ayuda

Saludos...
Responder Con Cita
  #6  
Antiguo 23-11-2004
Avatar de ruina
ruina ruina is offline
Miembro
 
Registrado: jun 2004
Posts: 196
Poder: 20
ruina Va por buen camino
jul, que recuerdos, el Val(), es una de esas cosas que uno nunca se acuerda que está ahi desde el principio,
__________________
todo el mundo debe creer en algo... yo creo que voy a tomarme otra copa.
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 00:23:25.


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