Checar digitação de caracteres especiais

Delphi

12/09/2003

Ola pessoal

Tem como checar se o usuario esta digitando algum caracter especial em edit ou dbedit do tipo -> Ã Ç ç é É


Dluca

Dluca

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

12/09/2003

no evento on [color=blue:af814e7263]keyPress [/color:af814e7263]do [color=blue:af814e7263]Edit[/color:af814e7263]:

const caracteresEspeciais: set of char = [´Ç´,´ç´,´¿´]; //coloque os caracteres especiais aqui
begin
if Key in Caracteresespeciais then 
  showmessage(´Digitou um caracter especial´);


se vc não quiser deixar digitar caracteres especiais no Edit:
if Key in Caracteresespeciais then 
  Key := 0;



GOSTEI 0
Cebikyn

Cebikyn

12/09/2003

Ou se preferir pode usar os códigos ASCII dos caracteres no evento OnKeyDown, ou ainda se quiser pegar [b:9eb86d563d]todos[/b:9eb86d563d] os caracteres especiais, pode adaptar o código do Marcelo da seguinte forma:

if not key in [´A´..´Z´, ´a´..´z´, ´0´..´9´] then
  showmessage(´Digitou um caracter especial´);


O código verifica se a tecla pressionada não é uma letra ou número.


GOSTEI 0
POSTAR