Fórum criando funçao para substituir acentos ... #214349

Procedure RemoveAcentos(Var str:String);
Var i,p : Integer;
    s1,s2 : STring;
Begin
  s1 := ´ÁÂÃÉÊÍÓÕÔÚÇáâãéêíóõôúç´;
  s2 := ´AAAEEIOOOUCaaaeeiooouc´;
  For i := 1 to Length(Str) do Begin
     p := Pos(str[i],s1);
     if p<>0 Then str[i] := s2[p];
  End;
End

function RemoveAcentos(Var str:String):string;
Var i,p,q : Integer;
    s1,s2 : STring;
Begin
   s1 := ´ÁÂÃÉÊÍÓÕÔÚÇáâãéêíóõôúç´;
   s2 := ´AHAHAHEHEHIHOHOHOHUHC ahahahehehihohohohuhc ´;
   For i := 1 to Length(Str) do
      Begin
      p := Pos(str[i],s1);
      if p<>0 Then
         begin
         p:=p*2;
         result:=result+s2[p-1];
         if not(str[i] in [´Ç´,´ç´]) then
            result:=result+s2[p];
         end
      else
         result:=result+Str[i];
   End;
End;

function TForm1.RetiraAcento(palavra: String): String;
var i: integer;
begin
   for i:= 0 to  Length(palavra) - 1 do
     begin
       case palavra[i] of
            ´á´,´Á´ : palavra[i] := ´A´;
            ´é´,´É´ : palavra[i] := ´E´;
            ´í´,´Í´ : palavra[i] := ´I´;
            ´ó´,´Ó´ : palavra[i] := ´O´;
            ´ú´,´Ú´ : palavra[i] := ´U´;
            ´à´,´À´ : palavra[i] := ´A´;
            ´è´,´È´ : palavra[i] := ´E´;
            ´ì´,´Ì´ : palavra[i] := ´I´;
            ´ò´,´Ò´ : palavra[i] := ´O´;
            ´ù´,´Ù´ : palavra[i] := ´U´;
            ´â´,´Â´ : palavra[i] := ´A´;
            ´ê´,´Ê´ : palavra[i] := ´E´;
            ´î´,´Î´ : palavra[i] := ´I´;
            ´ô´,´Ô´ : palavra[i] := ´O´;
            ´û´,´Û´ : palavra[i] := ´U´;
            ´ä´,´Ä´ : palavra[i] := ´A´;
            ´ë´,´Ë´ : palavra[i] := ´E´;
            ´ï´,´Ï´ : palavra[i] := ´I´;
            ´ö´,´Ö´ : palavra[i] := ´O´;
            ´ü´,´Ü´ : palavra[i] := ´U´;
            ´ç´,´Ç´ : palavra[i] := ´C´;
            ´ñ´,´Ñ´ : palavra[i] := ´N´;
            else palavra[i] := ´ ´;
     end;
end;

function RemoveAcentos(Var str:String):string;
Var i,p,q : Integer;
    s1,s2 : STring;
Begin
   s1 := ´ÁÂÃÉÊÍÓÕÔÚÇáâãéêíóõôúç´;
// s1 := ´Á Â Ã É Ê Í Ó Õ Ô Ú Ç á â ã é ê í ó õ ô ú ç ´;
   s2 := ´AHA ANEHEHIHOHOHOHUHC aha anehehihohohohuhc ´;
   For i := 1 to Length(Str) do
      Begin
      p := Pos(str[i],s1);
      if p<>0 Then
         begin
         p:=p*2;
         result:=result+s2[p-1];
         if (s2[p] <> ´ ´) then
            result:=result+s2[p];
         end
      else
         result:=result+Str[i];
   End;
End;

function BuscaTroca(Text,Busca,Troca : string) : string;
var n : integer;
begin
for n := 1 to length(Text) do
begin
if Copy(Text,n,1) = Busca then
begin
Delete(Text,n,1);
Insert(Troca,Text,n);
end;
end;
Result := Text;
end;