Código
Const
ComAcentoZ = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
SemAcentoZ = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
Var
x: Integer;
begin
for x:= 1 to Length(vTexto) do begin
if Pos(vTexto[x],ComAcentoZ)<>0 then
begin
vTexto[x]:=SemAcentoZ[Pos(vTexto[x],ComAcentoZ)];
end;
end;
Result:=vTexto;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009