Evitar Letras Com Acento..(preciso De Ajuda...)

[Guest alex sandro calderoli]

olá amigos...primeiramente gostaria de parabenizar o site e todos que ajudam.../

mas estou com um problema..baixei uma função para não deixar o usuario digitar letras com acento, mas o problema é que não sei onde coloco esse código, e como faço pra chamá-lo...se puderem me ajudar agradeço..

-----------------------começo da Função--------------------------------------

function AnsiToAscii ( str: String ): String;

var

i: Integer;

begin

for i := 1 to Length ( str ) do

case str of

'á': str := 'a';

'é': str := 'e';

'í': str := 'i';

'ó': str := 'o';

'ú': str := 'u';

'à': str := 'a';

'è': str := 'e';

'ì': str := 'i';

'ò': str := 'o';

'ù': str := 'u';

'â': str := 'a';

'ê': str := 'e';

'î': str := 'i';

'ô': str := 'o';

'û': str := 'u';

'ä': str := 'a';

'ë': str := 'e';

'ï': str := 'i';

'ö': str := 'o';

'ü': str := 'u';

'ã': str := 'a';

'õ': str := 'o';

'não': str := 'n';

'ç': str := 'c';

'Á': str := 'A';

'É': str := 'E';

'Í': str := 'I';

'Ó': str := 'O';

'Ú': str := 'U';

'À': str := 'A';

'È': str := 'E';

'Ì': str := 'I';

'Ò': str := 'O';

'Ù': str := 'U';

'Â': str := 'A';

'Ê': str := 'E';

'Î': str := 'I';

'Ô': str := 'O';

'Û': str := 'U';

'Ä': str := 'A';

'Ë': str := 'E';

'Ï': str := 'I';

'Ö': str := 'O';

'Ü': str := 'U';

'Ã': str := 'A';

'Õ': str := 'O';

'não': str := 'N';

'Ç': str := 'C';

end;

Result := str;

end;

-------------término da função----------------------------

[Kikonanet]

Olá,

você pode colocar no evento OnExit do Edit.

Ex.:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
 Edit1.Text:=AnsiToAscii(Edit1.Text)
end;

Abs.

Kiko

[Guest alex sandro calderoli]

valeu cara.....era fácil...mas quando a gente é iniciante...até penasr um pouco é brabo.....mas muito obrigado pela ajuda....

abraços...alex