bienvenido a Stackoverflow(es).
Para controlar lo que necesitas (que dentro de un TEdit
no se escriban acentos) hay 2 eventos que se suelen utilizar, cada uno con sus ventajas e inconvenientes.
Los más habituales serían: OnKeyPress
(para controlar al pulsar las teclas) y el OnExit
, para controlar cuando se sale del control.
OnKeyPress
, tiene la ventaja de que la comprobación se hace cada vez que se pulsa una tecla, es más "interactivo", pero realizas más comprobaciones. Además este evento no funciona si el texto se "pega" desde el portapapeles.
OnExit
, tiene la desventaja de que no se comprueba en cada pulsación del usuario, sino cuando intenta salir del control de edición. Es menos "interactivo", pero funciona bien en todos los casos.
Haz la prueba tú mismo. Coloca un formulario con 2 componentes de edición, Edit1
y Edit2
y coloca el siguiente código en los eventos de OnKeyPress
y OnExit
:
procedure TForm2.Edit1Exit(Sender: TObject);
var
str:string;
i:integer;
begin
Str := TEdit(Sender).Text;
// recorrer los caractesdel edit
for i := 1 to (Length(Str)) do
if Ord(Str[i]) >200 then
raise Exception.Create('En contenido del texto contiene un character con acentos');
end;
procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key) > 200 then
Key := #0;
end;
Verás que se comportan diferente al escribir y salir. Pero en este caso sólo el OnExit
responde bien cuando copias texto desde el portapepeles.
NOTA: Uso el >200
en el código de la prueba, porque si revisas la tabla de ASCII, todos los caracteres acentuados están por encima del 200. Pero puedes cambiar esa condición o ajustarla a lo que necesites.