Saber si es un numero

[jhonny]

Hay diosssss, a veces me parece que debí dejar todo en el primer post que escribí (Que por cierto es muy parecido al codigo que acaba de escribir egostar). , pero otra veces me doy cuenta de que me he divertido con este hilo .

[[Delphius]]

He estado siguiendo a este hilo y la verdad es que como que le dieron demasiada rosca al asunto.

Empezado por eduarcol

No se si son manias o es que lo lei pero el asunto es que no me gusta crear excepciones que pueden ser evitadas.

Es cierto, si se puede evitar el asunto de las excepciones. Conviene.

Ahora, para encabronar, y seguir dandole rosca... ¿alguno no pensó el emplear la antigua función val()?

Con esto simplemente podríamos hacer algo así (que también es rebuscado ya que por esas dos líneas directamente conviene meterle un IF) :

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

Saludos,

[jhonny]

Delphius, Pues efectivamente dice que 13.5 es Alfanumérico