Fórum ClientDataSet e acentos #425200

No caso aconselho a utilizar uma função de repleace que retira acentos, pois mesmo que consiga colocar ele no xml dependenod o que for ser feito é barrado.

Recomendo que utilize uma função para remover os acentos ou mude o "encoding" para um outro que não esteja entre os encoding="ISO-8859-1" ou encoding="ISO-1251-1", que aceitam acentuação.

função abaixo:

function TiraAcentos(Texto: string): string;
var
Contar, Posicao: integer;
Acentos, TiraAcentos: string;
begin

Acentos := 'áäàãâÁÄÀÃÂéëèêÉËÈÊíïìîÍÏÌÎóöòõôÓÖÒÕÔúüùûÚÜÙÛçÇ+'; //Acrecentei um sinal de + e troque por um espaço em branco com observado na mesma função
TiraAcentos := 'aaaaaAAAAAeeeeEEEEiiiiIIIIoooooOOOOOuuuuUUUUcC ';
Result := '';

for Contar := 1 to Length(Texto) do begin

Posicao := Pos(Copy(Texto, Contar, 1), Acentos);
if Posicao = 0 then
Result := Result + Copy(Texto, Contar, 1)
else
Result := Result + Copy(TiraAcentos, Posicao, 1);
end;
end;

O problema é que ninguém me deixa tirar os acentos.... rsrsrs

Eu acho que deve ser alguma coisa relacionada com o Provider ou o Dataset, digo isso por que quando eu uso o XML Mapper e peço pra testar o XTR ele abre um grid com os dados do XML e com acentos corretos, ou seja, existe alguma forma de fazer ou o XML Mapper não foi feito com Delphi.... kkkk