(Resolvido) Campo aceitar somente caracter especifico

[nsouza]

Colegas,

como faço nas seguintes opções:

Campo Nº apt -> Aceitar somente numero, se por acaso digitar um letra dispara uma mensagem

Campo email -> se faltar o arroba tb dispara a mensagem.

para o exemplo do apt tentei:

if not ( key in ['0'..'9', #13]) then

key:=#0

mas não tive sucesso.

Mais uma vez obrigado!

[Daniel Sanches]

quanto a aceitar somente números, coloque a rotina no evento OnKeyPress:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
        if not (Key in ['0'..'9']) then
                Key:= #0;
end;

quanto a exibir mensagem se não digitou @, coloque esta verificação no OnExit do Edit:

if AnsiPos('@',Edit1.Text) <= 0 then showmessage('Email inválido.');

na rotina acima, você tem que declarar a unit StrUtils na cláusula uses ...

abraços !!!

[Victor_DF]

nsouza...

Para o caso do campo Nº apt, o código teria que ser assim:

if key in (#65..#90) then
   key := #0;

Já para validar o e-mail, eu não sei se existe maneira melhor, mas eu já fiz um 'if' para testar se existe o '@' usando a cláusula 'copy' e a cláusula 'pos'.

falou abraço

[nsouza]

Obrigado, deu certo!

(Resolvido) Campo aceitar somente carater especifico