limpiar acentos

[User_baja1]

Hola a todos,
¿sabes como eliminar los acentos a una cadena de texto?

Realmente estoy buscando alguna funcion que lo haga, ya se que podria buscar en el texto las vocales y cambiarlas ... pero hay algo ya hecho??

Gracias, DAvid.

[delphi.com.ar]

Podrías hacer un StringReplace de los acentos por sus semejantes...

Saludos!

[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;

[delphi.com.ar]

¿Puedo contradecirme?
Es algo mas genérico y económico:

Código Delphi [-]
function TranslateChars(const AText, ASource, ADest: string): string;
var
  Ch: Char;
  L, P: Integer;
  Source,
  Dest: PChar;
begin
  L := Length(AText);
  SetLength(Result, L);
  Source := Pointer(AText);
  Dest := Pointer(Result);
  while L <> 0 do
  begin
    Ch := Source^;
    P := Pos(Ch, ASource);
    if P > 0 then
      Dest^ := ADest[P]
    else
      Dest^ := Ch;
    Inc(Source);
    Inc(Dest);
    Dec(L);
  end;
end;

....

procedure TForm1.Button1Click(Sender: TObject);
const
  CHARS_ACENTUADOS = 'ÁÉÍÓÚÀÈÌÒÙÄËÏÖÜÂÊÎÔÛáéíóúàèìòùäëïöüâêîôû';
  CHARS_SINACENTO = 'AEIOUAEIOUAEIOUAEIOUaeiouaeiouaeiouaeiou';
begin
  Edit2.Text := TranslateChars(Edit1.Text, CHARS_ACENTUADOS, CHARS_SINACENTO);
end;

[dec]

Hola,

Empezado por Federico

¿Puedo contradecirme?

Hombre, pues no faltaba más; todas las veces que quieras

[ContraVeneno]

Con su permiso, me permitiré preguntar:

¿Para que quieres quitarle los acentos a una cadena?
¿te estorban al hacer consultas o búsquedas?

Ya que si quieres quitar los acentos para poder realizar consultas SQL, entonces la mejor solución no es quitar los acentos, sino utilizar un collation diferente.

Ahora que si quieres quitar los acentos por otros motivos pues entonces ya te han dado consejos .