Cita:
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; 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));
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