erro com acentuação ao importar arquivo TXT
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 ?
obrigado
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
Curtidas 0
Melhor post
Mateus Ribeiro
14/12/2016
Boa tarde!
Tente isso, dps poste o resultado:
Tente isso, dps poste o resultado:
Readln(F, UTF8Decode(xlinha));
GOSTEI 1
Mais Respostas
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.
Já verificou a o idioma que está configurado a IDE.
Assim todos os componentes irão utilizar o mesmo idioma.
GOSTEI 0
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.
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
13/12/2016
Abri o arquivo txt e salvei como codificação ANSI e deu certinho muito obrigado
GOSTEI 0
Murilo Bragança
13/12/2016
Boa tarde!
Tente isso, dps poste o resultado:
Tente isso, dps poste o resultado:
Readln(F, UTF8Decode(xlinha));
100%
GOSTEI 0