Ver Mensaje Individual
  #4  
Antiguo 08-06-2006
kiringui kiringui is offline
Miembro
 
Registrado: may 2006
Posts: 22
Reputación: 0
kiringui Va por buen camino
si solo quieres numeros

para solo numeros:

if (Key in [#33..#47, #64..#255])then
Key:=#0;

para solo letras:

if not (Key in [#33..#47, #64..#255])then
Key:=#0;
Responder Con Cita