Hacer Que No Me Acepte Letras O Numeros En Un Edit.

[wascar2003]

Como Le Hago Para Que No Me Acepte Letras O Numeros En Un Edit?

De Antemano, Muchas Gracias.

[ixMike]

Hola.

¿Y ese Camel Case? Se te ha pegado de tanto programar en Delphi, ¿eh?



Por favor, realiza una búsqueda en los foros. Es un tema que ya está más que visto.


Salu2

[[egostar]]

Empezado por wascar2003

Como Le Hago Para Que No Me Acepte Letras O Numeros En Un Edit?

De Antemano, Muchas Gracias.

VaLiDaNdO CaDa cArAcTeR qUe dIgIteN, UsA eL EvEnTo OnKeYpReSs

SaLuD oS

[[poliburro]]

Utiliza esto

Código Delphi [-]
 
procedure TFrmformulario.EditKeyPress(Sender: TObject;
  var Key: Char);
begin
  If Ord(Key) In [60..64,91..94,123..192, 194..200,202..204,
                  206..208,210,212..217,219..224, 226..232,
                  234..236, 238..240,242,244..249, 251..255] Then
    Key := #0
end;

[ixMike]

¡Jo, poliburro, que lo había mandado a hacer una búsqueda! :'(

Que esa misma pregunta la contesté hace tres días.


¿Seguro que eso coje todas las letras? ¿Tildes también? ¿La ñ, la ç...?


Salu2.

[[poliburro]]

Empezado por ixMike

¡Jo, poliburro, que lo había mandado a hacer una búsqueda! :'(

Que esa misma pregunta la contesté hace tres días.


¿Seguro que eso coje todas las letras? ¿Tildes también? ¿La ñ, la ç...?


Salu2.

ups, jajaja sorry es que esto se actualiza super rápido jajajaja. y sobre si coje, pues sería bueno probarlo no? jajaja no seais vagos jajajaja

[ixMike]

Empezado por poliburro

ups, jajaja sorry es que esto se actualiza super rápido jajajaja. y sobre si coje, pues sería bueno probarlo no? jajaja no seais vagos jajajaja

¿vago? ya lo probé. No coje ç ni Ç, y sólo las letras con tilde tipo "´", pero no "¨" ni "`" ni "^"; no obstante, acepta +, -, *, puntos.....

y también el espacio, ¿debería? el amigo pedía sólo números y letras, nada de espacios...

bueno, ya le has dado el código, que se mire la tabla ASCII , que tú ya has hecho bastante.



Salu2.