(Resolvido) Impedir caracter repetido

[M@tEuS]

Alguém sabe como impedir que o usuário do sistema digite o mesmo caracter em uma Edit mais de uma vez?

[Churc]

Opa

Coloque no evento onKeyPress do Edit algo como

if Pos(LowerCase(Key), LowerCase(Edit1.Text)) > 0 then
Key := #0;

Se voce quiser fazer diferenciação de maiúsculas e minúsculas, tire os LowerCase

abraxx

[M@tEuS]

Sabia que era simples mas não fazia idéia de como. Obrigado.

Só acrescentei uma função entre as duas linhas (if key= #(código da tecla desejada) then), porque eu queria só bloquear uma tecla específica e se eu apagasse ela deveria ser possível digitá-la denovo só uma vez novamente.

Mas valeu mesmo, funcionou OK.