Saber si es un numero

[[eduarcol]]

Empezado por jhonny

Caracoles, cada vez le encuentro mas problemas, creo que tendré que ponerme a buscar soluciones .

jajaja pues bienvenida sea la ayuda, pero creo que la solucion es facil

Código Delphi [-]
function TTexto.EsNumero(cValor: String): Boolean
var
  i :Integer;
  nSigno, nSeparador: Integer;  //nSigno cuenta la cantidad de signos escritas debe ser solo uno nSimbolo la cantidad de simbolo decimal
begin
  i := 0;
  Result := (Length(cValor)>0);
  while ((i <= Length(cValor)-1) and (Result = True)) do
  begin
    inc(i);
    Result := (IsNumeric(cValor[i]) or ((cValor[i]='-') and (nSigno = 0) and (i = 1)) or ((cValor[i]=DecimalSeparator) and (nSeparador = 0));
    //Determina si se escribio para incrementar el contador
    if (cValor[i]='-') then
       Inc(nSigno);
    if (cValor[i]=DecimalSeparator) then
       Inc(nSeparador);
  end;
end;

Ahora solo falta saber si le sirvio la respuesta a nomad para pasarle la factura jejeje

[jhonny]

Jejeje, no he probado tu solución aun pero me imagino que con el siguiente dirá que es numero

9999. //Nunca he visto un numero con ese punto al final

[jhonny]

Que tal asi?, la probé y funciono, con las condiciones que hemos nombrado hasta aquí:

Código Delphi [-]
var
  i :Integer;
  nSigno, nSeparador: Integer;  //nSigno cuenta la cantidad de signos escritas debe ser solo uno nSimbolo la cantidad de simbolo decimal
begin
  i := 0;
  nSigno := 0;
  nSeparador := 0;
  Result := (Length(cValor)>0);
  while ((i <= Length(cValor)-1) and (Result = True)) do
  begin
    inc(i);
    Result := (IsNumeric(cValor[i]) or ((cValor[i]='-') and (nSigno = 0) and (i = 1)) or ((cValor[i]=DecimalSeparator) and (nSeparador = 0) and (i <> Length(cValor))));
    //Determina si se escribio para incrementar el contador
    if (cValor[i]='-') then
       Inc(nSigno);
    if (cValor[i]=DecimalSeparator) then
       Inc(nSeparador);
  end;

[jhonny]

Empezado por eduarcol

Ahora solo falta saber si le sirvio la respuesta a nomad para pasarle la factura jejeje

Jejeje, Cierto¡¡¡, Ojala le sirva una de tantas cosas que hemos dicho aquí .

[[eduarcol]]

Aja mas problemas a ver a ver

[jhonny]

Empezado por eduarcol

Aja mas problemas a ver a ver

Solo una cosa, ¿El siguiente debería considerarse como numero? (Omitiendo las comillas),
"999 " (Con espacio al final, por ejemplo).
Esa función dirá que es alfanumérico. Pero la siguiente no.

Código Delphi [-]
 
function TTexto.EsNumero(cValor: String): Boolean;
var
  i :Integer;
  nSigno, nSeparador: Integer;  //nSigno cuenta la cantidad de signos escritas debe ser solo uno nSimbolo la cantidad de simbolo decimal
begin
  cValor := Trim(cValor);
  i := 0;
  nSigno := 0;
  nSeparador := 0;
  Result := (Length(cValor)>0);
  while ((i <= Length(cValor)-1) and (Result = True)) do
  begin
    inc(i);
    Result := (IsNumeric(cValor[i]) or ((cValor[i]='-') and (nSigno = 0) and (i = 1)) or ((cValor[i]=DecimalSeparator) and (nSeparador = 0) and (i <> Length(cValor))));
    //Determina si se escribio para incrementar el contador
    if (cValor[i]='-') then
       Inc(nSigno);
    if (cValor[i]=DecimalSeparator) then
       Inc(nSeparador);
  end;
end;

[[eduarcol]]

Ok jhonny hoy tengo el cerebro en off por mas qe trato le busco problemas y no se me ocurre ni uno jejeje

creo que me gusta mas pensar en soluciones que en problemas