Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Validar que sean numeros (https://www.clubdelphi.com/foros/showthread.php?t=16280)

senpiterno 22-11-2004 19:57:49

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

marcoszorrilla 22-11-2004 20:04:53

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.

senpiterno 22-11-2004 20:14:55

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

roman 22-11-2004 20:18:56

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

senpiterno 22-11-2004 20:37:48

Gracias Roman y a ti tambien marcoszorrilla, ya solucione mi problema gracias a su ayuda

Saludos...

ruina 23-11-2004 16:19:04

jul, que recuerdos, el Val(), es una de esas cosas que uno nunca se acuerda que está ahi desde el principio,


La franja horaria es GMT +2. Ahora son las 16:39:23.

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