Saber si un texto es un número

[elcigarra]

Existe alguna función para saber si un texto represanta algún número sin tener que recurrir al control de excepciones?
ej:

var
  Numero : string
begin
  if isNAN(StrToFloat(Numero)) then
   //.......

En este caso la función StrToFloat eleva una excepción de punto flotante. La pregunta es si existe alguna función que evalúe el texto antes de intentar realizar la operación...

[elcigarra]

perdón... en el ejemplo anterior supongan que a la variable número le doy un valor (que no sea un número) antes de la función "isNaN". Ya sé que no estaba inicializada en el ejemplo

[[Caral]]

Hola
Este es parte de un ejemplo que puso Bicho en algun hilo.
En El evento OnKeyPress del edit o dbedit pon:

Código Delphi [-]
if key in ['0'..'9'] then
// Aqui pones lo que neceitas

Con esto si hay algun numero lo indica
Hay que buscar para encontrar
Saludos

[menavas]

buenas, yo utilizaria un bloque try... except

Código Delphi [-]
 try
  strtoint(key)
except
 //Colocas tu codigo para manejar la excepcion
end;

saludos!

[[seoane]]

Podemos hacer algo así:

Código Delphi [-]
var
  Numero: String;
  Valor: Extended;
begin
  Numero:= '1,25';
  if TextToFloat(PChar(Numero),Valor,fvExtended) then
  begin
    // Aqui lo que quieras
  end;
end;

[[Caral]]

Hola
Ya que estas por aqui seoane, quisiera que me evacuaras una consulta con respecto al codigo que pusiste.
Al usar variables, no estoy utilizando memoria adicional?
El uso de variables es mejor limitarlo o por el contrario un bite o mas no son gran desplome ?
Perdona que te haga esta pregunta en este hilo, pero se dio la ocasion.
Saludos Maestro

[[seoane]]

Lo siento Caral, pero no te entiendo muy bien. A que te refieres con "usar variables". Y cuando dices que usa mas memoria, ¿con resecto a que otro metodo?.

[[Caral]]

Gracias Seoane
Dicen que la pregunta mas tonta es la que no se hace
Al Hacer esto:

Código Delphi [-]
var
  Numero: String;
  Valor: Extended;

No Estas utilizando una Variable de tipo string?( Cadena de caracteres), que a su vez ocupa bytes de memoria?, puesto que el sistema tiene que almacenar (Guardar o Guardar espacio) para esta variable para definir posteriormente, (Fraccion de segundos) su valor?
La verdad seoane es simple curiosidad y tratar de aprender algo mas.
Saludos

[[seoane]]

Ahora creo que ya se por donde vas, donde yo pongo:

Código Delphi [-]
  Numero:= '1,25';
  if TextToFloat(PChar(Numero),Valor,fvExtended) then

preguntas por que no uso:

Código Delphi [-]
  if TextToFloat('1,25',Valor,fvExtended) then

Lo hago por seguir el ejemplo que puso elcigarra:

Código Delphi [-]
var
  Numero : string
begin
  if isNAN(StrToFloat(Numero)) then

Con respecto a tu pregunta, la diferencia entre una y otra cosa es insignificante. Estamos hablando de microsegundos.

[[Caral]]

Gracias
La verdad esto es lo que me gusta de este club y sus foros que una pregunta o una duda se puede convertir en un debate y creo que de eso se trata espero que con ampliar estas posibilidades elcigarra y otros muchos tengan mas criterio y enfonquen sus dudas con mas amplitud.
Repito Gracias por tu explicacion he insisto, Maestro.
Saludos

[roman]

Empezado por seoane

la diferencia entre una y otra cosa es insignificante. Estamos hablando de microsegundos.

Además en muchos casos el compilador de hecho desechará la variable. Y aún si no fuese el caso, yo prefiero "desperdiciar" unos cuantos a bytes y ganar legibilidad de código.

// Saludos