erro com acentuação ao importar arquivo TXT
13/12/2016
0
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
Post mais votado
14/12/2016
Tente isso, dps poste o resultado:
Readln(F, UTF8Decode(xlinha));
Mateus Ribeiro
Mais Posts
14/12/2016
Luiz Vichiatto
Já verificou a o idioma que está configurado a IDE.
Assim todos os componentes irão utilizar o mesmo idioma.
14/12/2016
Gutierry Pereira
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.
14/12/2016
Felipe Ip
09/03/2020
Murilo Bragança
Tente isso, dps poste o resultado:
Readln(F, UTF8Decode(xlinha));
100%
Clique aqui para fazer login e interagir na Comunidade :)