Fórum Alteração de Palavras Acentuadas #155932

Tenta isso aqui

function RemoveAcentos(Str:String): String;
{Remove caracteres acentuados de uma string}
Const ComAcento = ´àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;
SemAcento = ´aaeouaoaeioucuAAEOUAOAEIOUCU´;
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
Begin
if Pos(Str[x],ComAcento)<>0 Then
begin
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
end;
end;
Result := Str;
end;

Espero ter ajudado.

Era exatamente isto que eu precisava, como tenho que passar o conteudo do cadastro sem acentuação para um aexportação de dados vou utilizar a sua função só na hora da exportação, assim fico com o cadastro como esta.
Muito obrigado. :D