|
Validar entradas numéricas en Delphi
Autor:
Héctor Omar Alvarez
1.0 Comenzando
Cuando creamos aplicaciones, en cualquier entorno,
debemos asegurarnos que el usuario digitó sólo lo que necesitamos.
Partiendo de esa premisa podemos asegurarnos que sólo entre
números.
1.1 El código
Aquí les propongo el código de la posible solución.
Creo que es sencillo, analízenlo y todo listo.
{
=======================================
VERIFICAR SI LAS ENTRADAS SON NUMERICAS
Autor: Héctor O. Álvarez Madera
Fecha: 10/22/2003
---------------------------------------
Coloca este algoritmo en el
evento OnKeyPress de los EditBox
}
var
mensaje:integer;
begin
if (key >= Char(64)) Or (key < Char(47))
And (key >= Char(14)) then
begin
mensaje:=Application.MessageBox('Digíte un
valor numérico. Gracias',
'Error de
entrada');
key := char(0); //Limpia el EditBox
end;
end;
|
|
|
|
