Buena esa jhonny
yo añadiria
Código Delphi [-]
function TForm1.EsNumero(Numero: String): Boolean;
var
i :Integer;
begin
i := 0;
Result := (Length(Numero)<>0);
while ((i <= Length(Numero)-1) and (Result = True)) do
begin
inc(i);
Result := (IsNumeric(Numero[i]) or (Numero[i]='-') or (Numero[i]=DecimalSeparator) );
end;
end;
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
|