limpiar acentos

[dec]

Hola,

Con el permiso de Federico, a ver si esta barbaridad podría servir:

Código Delphi [-]
 // Sustituye las vocales acentuadas (tanto de minúsculas
 // como de mayúsculas) en la cadena pasada como parámetro.
 //
 function QuitarAcentosVocales(cadena: string) : string;
 const
   vocales1: array [1..5] of string = ('á', 'é', 'í', 'ó', 'ú');
   vocales2: array [1..5] of string = ('a', 'e', 'i', 'o', 'u');
   vocales3: array [1..5] of string = ('Á', 'É', 'Í', 'Ó', 'Ú');
   vocales4: array [1..5] of string = ('A', 'E', 'I', 'O', 'U');
 var
   i: integer;
 begin
   for i := 1 to 5 do begin
     cadena := StringReplace(cadena, vocales1[i], vocales2[i], [rfReplaceAll]);
     cadena := StringReplace(cadena, vocales3[i], vocales4[i], [rfReplaceAll]);
   end;
   Result := cadena;
 end;
 
 // Ejemplo de llamada a "QuitarAcentosVocales"
 //
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMessage(QuitarAcentosVocales('á é í ó ú  <>  Á É Í Ó Ú'));
 end;