Saber si es un numero

[jhonny]

Empezado por eduarcol

Sinceramente es pasion por ver sufrir al projimo :P

Estoy de acuerdo contigo eduarcol, ¡¡¡ Que cosita ola!!!

[[Delphius]]

Empezado por eduarcol

Ok val sirve para los enteros, ¿¿y los reales??

¿Estas completamente seguro?
Fui a la ayuda y me di con esto:

Empezado por ayuda

Val converts the string value S to its numeric representation, as if it were read from a text file with Read.
S is a string-type expression; it must be a sequence of characters that form a signed real number.
V is an integer-type or real-type variable.

Para que funcione volví a la función y la alteré por esta:

Código Delphi [-]
function EsNumero(Numero: string): boolean;
var
  Chequeo: integer;
  Num: real;
begin
   val(Numero, Num, Chequeo);
   result := (Chequeo = 0);
end;

Saludos,

[[eduarcol]]

Upps que de cosas, yo lei lo mismo pero no se en que estaba pensando y en vez de real lo modifique por double, bueno es sabado las 4 de la tarde y en lo noche me toca viajar debe ser eso que me tiene la cabeza en otra parte

[jhonny]

Ya decia yo que alguien iba a venir he íbamos a tener que tirar todo a la basura , el único "problema" que veo es que parece que obliga a que se use como Separador decimal el Punto(.), de manera pues que si alguien esta acostumbrado a usar la coma (,) tendrá que cambiar de costumbres, ahh y volvió otro problema que ya habíamos evaluado, que el 999. (Con ese punto al final) no es valido .

Jejeje, parece que estuviéramos volviendo a lo mismo .

[jhonny]

Bueno, fue muy divertido este asunto y gracias a Delphius por fin se pudo sacar una función muy bonita, asi pues que propongo finalmente este otro ajustecito y listo ...

Código Delphi [-]
 
function EsNumero(Numero: string): boolean;
var
  Chequeo: integer;
  Num: real;
begin
   Numero := Trim(Numero);
   val(Numero, Num, Chequeo);
   result := ((Chequeo = 0) and (Numero[Length(Numero)]<> '.'));
end;

[[egostar]]

Empezado por jhonny

Ya decia yo que alguien iba a venir he íbamos a tener que tirar todo a la basura , el único "problema" que veo es que parece que obliga a que se use como Separador decimal el Punto(.), de manera pues que si alguien esta acostumbrado a usar la coma (,) tendrá que cambiar de costumbres, ahh y volvió otro problema que ya habíamos evaluado, que el 999. (Con ese punto al final) no es valido .

Jejeje, parece que estuviéramos volviendo a lo mismo .

, Si prueban con mi código, ya tiene contemplado los números que mencionas amigo jhonny.

Lo de las comas, , se resuelve con la funcion:

Código Delphi [-]
StringReplace(NombreCampo,',','',[rfReplaceAll]);

Salud OS.

[jhonny]

Empezado por egostar

, Si prueban con mi código, ya tiene contemplado los números que mencionas amigo jhonny.

Lo de las comas, , se resuelve con la funcion:



StringReplace(NombreCampo,',','',[rfReplaceAll]);





Salud OS.

Jejeje, definitivamente esto si esta muy divertido, en ultimas todos tenemos algo de razón, tu dices que hay que cerciorarse de los costos vs access violations y tales y que pascuales y ya somos 4 invirtiéndole a esta solución , mientras que cierto personaje debe estar en casa con pantaloneta, tirado en su sillón viendo alguna buena pelicula de sábado con su familia .

Mi función en ese caso es:

Código Delphi [-]
 
StringReplace(DondeDeboEstar,'Oficina','Hogar',[rfReplaceAll]);

[[eduarcol]]

Jajajajajajaja pues si definitivamente el amigo jhonny tiene una obsesion secreta con el 999. que realmente si es un numero, valdria decir

999 = 999. = 999.0

Pues yo ya llegue de la oficina a la casa pero no se preocupen aqui tengo tambien una oficina y hecha por mis propias manos vamos que hasta presentable me ha quedado, aunque sigo esperando que no se caiga, y el arquitecto y que si bases que si pilares que si cabilla, nah cemento y bloque jejeje

[[Delphius]]

Pues me he quedado un poco "picado", y se me ocurrió lo siguiente:

Código Delphi [-]
function Tform1.EsNumero(Numero: string; SepDecimal: char = '.'): boolean;
// Esta función ha sido diseñada para seguir dando rosca al asunto
// Espero que le sea de su agradado
const
  PUNTO = '.';
var
  Chequeo: integer;
  Num: real;
begin
   Numero := Trim(Numero);
   // Si usa otro separador... lo sustiuimos por el punto para
   // que se pueda transformar...
   // quien sabe, en una de esas puede existir algún planeta
   // en donde el separador sea el @
   if SepDecimal <> PUNTO
      then Numero := StringReplace(Numero,SepDecimal,PUNTO,[rfReplaceAll]);
   val(Numero, Num, Chequeo);
   result := ((Chequeo = 0) and (Numero[Length(Numero)]<> '.'));
end;

// Ejemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
  if EsNumero('999,75',',')
     then ShowMessage('Es un número')
     else ShowMessage('En este planeta eso no es un número');
end;

Saludos,