Ajuda sobre Maskedit

Delphi

02/10/2003

:? AJUDEM-ME, PRECISSO SABER COMO DEVO FAZER PARA UM ´MASKEDIT´ OU UM ´EDIT´ RECONHECER, SE É NUMERICO OU ALFABETICO QUANDO DIGITAMOS ALGO.

SE TEM ALGUMA PROPRIEDADE OU FUNÇÃO;[u:8c9560f430][/u:8c9560f430]

[i:8c9560f430]Título em maiúsculas editado. Procure digitar a mensagem em minúsculas. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=add834b4ed94967502cf2381c38e751a][u:8c9560f430]Regras de Conduta[/u:8c9560f430][/url]. (marcelo.c – Moderador)[/i:8c9560f430]


P_lima

P_lima

Curtidas 0

Respostas

Ljr

Ljr

02/10/2003

no evento OnKeyPress do TEdit coloque o seguinte codigo:

  if key in [´0´..´9´] then
    ShowMessage(´Numerico´) else
  if key in [´A´..´Z´,´a´..´z´] then
    ShowMessage(´Letras do alfabeto´)
  else
    ShowMessage(´Outras´);


Isto verificará cada tecla precionada quando o foco estiver sobre o edit e retornará se é numérico, se é uma letra do alfabeto ou se é outras.


GOSTEI 0
POSTAR