Evitando caracteres com acento
A função abaixo pega um string informada como parâmetro e retira todas as letras acentuadas substituindo-as por letras correspondentes sem acento.
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;
