Hola,
Con el permiso de
Federico, a ver si esta barbaridad podría servir:
Código Delphi
[-]
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(QuitarAcentosVocales('á é í ó ú <> Á É Í Ó Ú'));
end;