Salvar arquivo TXT no formato UTF-8

Delphi

16/01/2008

Caros amigos,

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

Obrigado,

Marcello.


Marcello

Marcello

Curtidas 0

Respostas

Massuda

Massuda

16/01/2008

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);
...



GOSTEI 0
Marcello

Marcello

16/01/2008

:mrgreen: Valeu Massuda, bastou incluir o 
Write(Arquivo, #$EF+$BB+$BF);
e já funcionou.

Muito obrigado!

Marcello.


GOSTEI 0
POSTAR