GARANTIR DESCONTO

Fórum CÓDIGO PARA SER POSSÍVEL LETRAS PONTOS E ACENTOS #586602

09/10/2017

0

Delphi

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

Responder

Post mais votado

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

Raimundo Pereira

Raimundo Pereira
Responder

Gostei + 1

Mais Posts

10/10/2017

Mailson Janoca

Irmão gostei da sua ideia.

Se possível Você tem esse código para me passar ???
Responder

Gostei + 0

10/10/2017

Natanael Ferreira

Teste assim:

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

Gostei + 0

10/10/2017

Mailson Janoca

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.
Responder

Gostei + 0

10/10/2017

Natanael Ferreira

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

Gostei + 1

10/10/2017

Natanael Ferreira

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;
Responder

Gostei + 0

10/10/2017

Mailson Janoca

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
Responder

Gostei + 0

10/10/2017

Raimundo Pereira

Não pude responder a tempo, mais Natanael resolveu, isso ai mesmo.
Responder

Gostei + 0

10/10/2017

Mailson Janoca

Valeu irmão pela atenção.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar