Salvar arquivo TXT no formato UTF-8

Question

Caros amigos, Como faço para salvar um TXT no formato UTF-8, que é o exigido pelo Portaria CAT 102/07 ?Obrigado,Marcello....

Massuda · Answer

Não trabalho com isso, mas talvez isso te ajude.

Se você estiver usando D7 (talvez D6, não tenho certeza) ou mais recente, existem as funções AnsiToUtf8 e UTF8Encode...

function AnsiToUtf8(const S: string): UTF8String;
function UTF8Encode(const WS: WideString): UTF8String;

...use uma dessas funções para converter seu texto antes de gravar no arquivo.

Um detalhe importante é que existe uma convenção adotada para arquivos texto UTF8 é iniciar o arquivo com uma sequencia especial de caracteres. Em Delphi seria algo assim...

var
  Arquivo: TextFile;
...
  Rewrite(Arquivo);
  Write(Arquivo, #$EF+$BB+$BF);
...

Marcello · Answer

:mrgreen: Valeu Massuda, bastou incluir o [code:1:9fca945424]Write(Arquivo, #$EF+$BB+$BF);[/code:1:9fca945424] e já funcionou.Muito obrigado!Marcello....

Fórum Salvar arquivo TXT no formato UTF-8 #351948