Força uso

[checking 0]

Gostaria de saber, como forço um Form(tEdit) conter Obrigatiramente Letras e Numeros, caso, o form so poder ser validado apos conter Obrigatoriamente letras e numeros

POis aki ele aceita apenas Letras e numeros.

 

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

end;

 

Att. Gustavo.

[Chrnos 30]

Explique melhor o problema e dê exemplos... seu tópico está confuso de entender.

 

[]'s

[checking 0]

procedure TForm1.testKeyPress(Sender: TObject; var Key: Char);

begin

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

end;

 

Quero quer esse Tedit so seja avildado pos conter OBRIGATORIAMENTE letras e Numeros. se e possivel atraves do keypress

[Chrnos 30]

O keypress só valida se o digito digitado naquele instante é uma letra ou número. Sugiro usar o evento Exit do edit e fazer um for que lê letra a letra do campo e verifica se tem letras e números informados nele (um contador pra letras e outro pra números resolve). Se um dos dois contadores for igual a 0, você dá um focus no campo e manda uma mensagem por exemplo avisando que os dados são inválidos.

 

[]'s