Anónimo
Como saber si una Cadena de Caracteres es Numérica
El problema que tengo, es que como puedo identificar un dato, ya que Leeo con InputQuery, y lo que quiero leer es un Numero ya que Inputquery me devuelve una cadena:
X:=StrToInt(InputQuery('Numero','inserta',''));
Pero me marca Error cuando InputQuery me lee caracteres como válido eso de que haga a la fuerza que InputQuery me lea Numéricamente, o como Válido por aparte para saber si lo que leí es una cadena de caracteres numéricos, ya que en VB se ocupa el "ISNUMERIC", pero en Delphi no se como sea...
X:=StrToInt(InputQuery('Numero','inserta',''));
Pero me marca Error cuando InputQuery me lee caracteres como válido eso de que haga a la fuerza que InputQuery me lea Numéricamente, o como Válido por aparte para saber si lo que leí es una cadena de caracteres numéricos, ya que en VB se ocupa el "ISNUMERIC", pero en Delphi no se como sea...
1 Respuesta
Respuesta
1
Tienes varias opciones:
1. Cuando se produce una conversión con error el Delphi lanza una excepción de tipo EConvertError:
try
X:=StrToInt(InputQuery('Numero','inserta',''));
except
on E: EConvertError do
// Código haciendo lo q tu quieras (o nada)
end;
2. Utilizar la función StrToIntDef, si el valor a convertir no es correcto devolverá el valor que tu hayas puesto por defecto:
X:=StrToIntDef(InputQuery('Numero','inserta',''), -1);
3. Crearte tu propia función IsNumeric
1. Cuando se produce una conversión con error el Delphi lanza una excepción de tipo EConvertError:
try
X:=StrToInt(InputQuery('Numero','inserta',''));
except
on E: EConvertError do
// Código haciendo lo q tu quieras (o nada)
end;
2. Utilizar la función StrToIntDef, si el valor a convertir no es correcto devolverá el valor que tu hayas puesto por defecto:
X:=StrToIntDef(InputQuery('Numero','inserta',''), -1);
3. Crearte tu propia función IsNumeric