CÓDIGO PARA SER POSSÍVEL LETRAS PONTOS E ACENTOS

Delphi

09/10/2017

Boa noite pessoal!

Tenho um código para o EDIT que só é possível letras e pontos, porém estou precisando que no EDIT seja permitidos os acentos também.

Meu código atual é esse:

if (not(Key in ['A' .. 'Z', 'a' .. 'z', ' ', '.', '-', #8])) then
Key := #0;

Alem das letras e ponto quero os acentos também.

Agradeço a cooperação desde já.
Mailson Janoca

Mailson Janoca

Curtidas 0

Melhor post

Raimundo Pereira

Raimundo Pereira

10/10/2017

Bom dia.
Não seria melhor bloquear apenas os números?

Se achar melhor, você pode verificar o valor digitado se é número, se for key:=#0
GOSTEI 1

Mais Respostas

Mailson Janoca

Mailson Janoca

09/10/2017

Irmão gostei da sua ideia.

Se possível Você tem esse código para me passar ???
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

09/10/2017

Teste assim:

  if (not(CharInSet(Key, ['A' .. 'Z', 'a' .. 'z', ' ', '.', '-', 'à', 'â', 'ê', 'ô', 'û', 'ã', 'õ',
    'á', 'é', 'í', 'ó', 'ú', 'ç', 'ü', 'À', 'Â', 'Ê', 'Ô', 'Û', 'Ã', 'Õ', 'Á', 'É', 'Í', 'Ó', 'Ú',
    'Ç', 'Ü', #8]))) then
    Key := #0;
GOSTEI 0
Mailson Janoca

Mailson Janoca

09/10/2017

Meu rei

Não deu certo estou usando D7 e pelo que pesquisei CharInSet só existe nas versões Unicodes (2009 pra frente).

Lascou tudo kkk.
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

09/10/2017

Verdade. Para Delphi 7 e anteriores mantenha o IN.
  if (not(Key in ['A' .. 'Z', 'a' .. 'z', ' ', '.', '-', 'à', 'â', 'ê', 'ô', 'û', 'ã', 'õ', 'á',
    'é', 'í', 'ó', 'ú', 'ç', 'ü', 'À', 'Â', 'Ê', 'Ô', 'Û', 'Ã', 'Õ', 'Á', 'É', 'Í', 'Ó', 'Ú', 'Ç',
    'Ü', #8])) then
    Key := #0;
GOSTEI 1
Natanael Ferreira

Natanael Ferreira

09/10/2017

E se for bloquear apenas números como sugerido pelo P2 use o código abaixo.

Lembre-se que com este código qualquer caractere especial também será permitido:

  if (Key in ['0' .. '9']) then
    Key := #0;
GOSTEI 0
Mailson Janoca

Mailson Janoca

09/10/2017

Irmão deu certo. Deus abençoe grandemente pela ajuda. Só tenho a agradecer as pessoas desse fórum.



"Levem os fardos pesados uns dos outros e, assim, cumpram a lei de Cristo".
Gálatas 6:2
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

09/10/2017

Não pude responder a tempo, mais Natanael resolveu, isso ai mesmo.
GOSTEI 0
Mailson Janoca

Mailson Janoca

09/10/2017

Valeu irmão pela atenção.
GOSTEI 0
POSTAR