He estado siguiendo a este hilo y la verdad es que como que le dieron demasiada rosca al asunto
.
Cita:
|
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,