Ler Arquivo TXT em Formato Unicode Delphi-7

[marcelo_sp]

Pessoal , preciso ler o conteudo de um arquivo txt em formato Unicode , segue um exemplo de um arquivo no formato Unicode .

Muito Grato .

Marcelo .

[EMBarbosa]

Delphi 7?

[marcelo_sp]

Linguagem Delphi 7 !!! tentei com AssignFile , StringList , FileStream e não consegui .

Marcelo .

[EMBarbosa]

Delphi 7 não tem suporte a Unicode. Isso só foi adicionado no Delphi 2009 se não me engano.

[marcelo_sp]

EMBarbosa , tenho o NextGrid instalado no Delphi 7 que tem uma função que me salva o conteudo do grid para um possivel retorno destes dados (NextGrid.SaveToTextFile...) este arquivo que esta em anexo neste formato Unicode foi gerado pelo NextGrid no Delphi 7 , mas vou tentar pesquisar mais , por enquanto muitissimo grato .

Marcelo .

[EMBarbosa]

Ahh Não tenho familiaridade com esse componente.

Mas você pode verificar então a função SaveToTextFile. No Delphi 2010, por exemplo, as funções da classe TStrings SaveToFile e LoadFromFile aceitam um parâmetro do tipo TEncoding que define a codificação.

[marcelo_sp]

Elton , muito grato por sua colaboração , consegui resolver este problema e estou disponibilizando para os colegas se precisarem de algo do genero as funções para Delphi-7 + exemplo de como trabalhar com este tipo de arquivo .

Grato a todos .

Marcelo .

[jccordeiro]

marcelo_sp, tem como enviar o arquivo novamente, por favor ? está corrompido .. vlw

 

( na hora de abrir dá a mensagem : Final inesperado do arquivo' )

[marcelo_sp]

marcelo_sp, tem como enviar o arquivo novamente, por favor ? está corrompido .. vlw

 

( na hora de abrir dá a mensagem : Final inesperado do arquivo' )

 

O Campeão , ta na mão !

[MARIA SILVIA DOS SANTOS]

Marcelo_SP, vc ainda tem esse código para ler arquivo unicode em delphi7? Estou precisando muito.

 

Obrigada