erro com acentuação ao importar arquivo TXT

13/12/2016

51

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
Responder

Post mais votado

14/12/2016

Boa tarde!

Tente isso, dps poste o resultado:

Readln(F, UTF8Decode(xlinha));
Responder

Mais Posts

14/12/2016

Luiz Vichiatto

Olá Felipe!
Já verificou a o idioma que está configurado a IDE.
Assim todos os componentes irão utilizar o mesmo idioma.
Responder
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.
Responder

14/12/2016

Felipe Ip

Abri o arquivo txt e salvei como codificação ANSI e deu certinho muito obrigado
Responder
Boa tarde!

Tente isso, dps poste o resultado:

Readln(F, UTF8Decode(xlinha));

100%
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar