Retira Acentos De Strings

removendo caracteres com acento... esta fun��o pega um string informada como par�metro e retira todas as letras acentuadas substituindo-as por letras correspondentes sem acento. ideal para validar nomes de usu�rios, por exemplo... function ansitoascii ( str: string ): string; var i: integer; begin for i := 1 to length ( str ) do case str[i] of '�': str[i] := 'a'; '�': str[i] := 'e'; '�': str[i] := 'i'; '�': str[i] := 'o'; '�': str[i] := 'u'; '�': str[i] := 'a'; '�': str[i] := 'e'; '�': str[i] := 'i'; '�': str[i] := 'o'; '�': str[i] := 'u'; '�': str[i] := 'a'; '�': str[i] := 'e'; '�': str[i] := 'i'; '�': str[i] := 'o'; '�': str[i] := 'u'; '�': str[i] := 'a'; '�': str[i] := 'e'; '�': str[i] := 'i'; '�': str[i] := 'o'; '�': str[i] := 'u'; '�': str[i] := 'a'; '�': str[i] := 'o'; '�': str[i] := 'n'; '�': str[i] := 'c'; '�': str[i] := 'a'; '�': str[i] := 'e'; '�': str[i] := 'i'; '�': str[i] := 'o'; '�': str[i] := 'u'; '�': str[i] := 'a'; '�': str[i] := 'e'; '�': str[i] := 'i'; '�': str[i] := 'o'; '�': str[i] := 'u'; '�': str[i] := 'a'; '�': str[i] := 'e'; '�': str[i] := 'i'; '�': str[i] := 'o'; '�': str[i] := 'u'; '�': str[i] := 'a'; '�': str[i] := 'e'; '�': str[i] := 'i'; '�': str[i] := 'o'; '�': str[i] := 'u'; '�': str[i] := 'a'; '�': str[i] := 'o';

'�': str[i] := 'n'; '�': str[i] := 'c'; end; result := str; end;

um exemplo de como cham�-la: procedure tform1.button1click(sender: tobject); begin edit1.text := ansitoascii(edit1.text); end; nesse caso, eliminaria os acentos do campo edit1 marcos elias www.mep.rg3.net