erro com acentuação ao importar arquivo TXT

Delphi

13/12/2016

Estou desenvolvendo um método para importar os dados de uma arquivo TXT para uma tabela firebird.
Abrindo o arquivo no bloco de notas as palavras com acentos estão corretas, porem quando executo os seguintes comandos, as palavras acentuadas ficam todas erradas, ou melhor é trocado as letras por simbolos, tem como resolver isso, importando com os acentos ?

  xarqimp := TStringList.Create;
  xarqimp.StrictDelimiter := True;
  xarqimp.Delimiter := '|';

  AssignFile(F,xnomarq);                                                 
  Reset(F);

  while not(Eof(F)) do
  begin
    Readln(F,xlinha);
    xarqimp.DelimitedText := xlinha;

    if (Length1(xlinha) > 0) then
      ShowMessage(xlinha);
end;


obrigado
Felipe Ip

Felipe Ip

Curtidas 0

Melhor post

Mateus Ribeiro

Mateus Ribeiro

14/12/2016

Boa tarde!

Tente isso, dps poste o resultado:

Readln(F, UTF8Decode(xlinha));
GOSTEI 1

Mais Respostas

Luiz Vichiatto

Luiz Vichiatto

13/12/2016

Olá Felipe!
Já verificou a o idioma que está configurado a IDE.
Assim todos os componentes irão utilizar o mesmo idioma.
GOSTEI 0
Gutierry Pereira

Gutierry Pereira

13/12/2016

Boa tarde,
Provavelmente esta com problemas de charset, verifique se o seu arquivo esta usando o msm charset que o Delphi, e qual sua versão do Delphi Vesões antigas do Delphi trabalham com ANSI. Provavel que seu arquivo txt esteja com UTF8 e a conversão de uma para o outro esta dando esses erros.

Espero ter ajudado.
GOSTEI 0
Felipe Ip

Felipe Ip

13/12/2016

Abri o arquivo txt e salvei como codificação ANSI e deu certinho muito obrigado
GOSTEI 0
Murilo Bragança

Murilo Bragança

13/12/2016

Boa tarde!

Tente isso, dps poste o resultado:

Readln(F, UTF8Decode(xlinha));

100%
GOSTEI 0
POSTAR