4

Como converter texto utf-8 para ANSI. As palavras que usam "~" e "´" estão saindo erradas, veja por exemplo o uso da palavra "PREPARAÇÃO" que está saindo: "PREPARA 플O" ao gerar arquivo .CSV usando Delphi 2006.

4
  • 1
    Vai depender do tipo do objeto que você está usando para salvar esses arquivo. Posta o trecho de código que facilita a nossa vida. Commented 16/02/2017 às 10:37
  • Essa é a parte que eu passo os dados para serem gravados.. if Tipo = 'C' then Write(ARQTXT, EReplicate(AnsiToUtf8(Texto), ' ', Tamanho)); Write(ARQTXT, ';'); Application.ProcessMessages Commented 16/02/2017 às 12:54
  • Resolvido! Basta fazer assim: // Antes de iniciar a gravar no arquivo Write(ARQTXT,#$EF+#$BB+#$BF); //Depois use utf8encode() ao gravar os dados no arquivo... Write(ARQTXT,utf8encode(Texto)); E pronto você tem um arquivo no fotmato UTF-8. Commented 18/02/2017 às 21:20
  • @JoaoBoscodosReisBecker se consegui ajudar com a minha resposta, pode aceitar a resposta clicando no ✔ no lado esquerdo da mesma. Se necessitar de alguma mais ajuda avise.
    – Tmc
    Commented 28/09/2017 às 14:16

1 Resposta 1

0

Tente utilizar o seguinte código, segundo a resposta dada a esta pergunta no StackOverflow o problema foi resolvido usando a função interna do Delphi UTF8toAnsi e mais uma função que postei abaixo, utilizando a versão Delphi 2010.

function TFormMain.convertir_utf8_ansi(const Source: string):string;
var
   Iterator, SourceLength, FChar, NChar: Integer;
begin
   Result := '';
   Iterator := 0;
   SourceLength := Length(Source);
   while Iterator < SourceLength do
   begin
      Inc(Iterator);
      FChar := Ord(Source[Iterator]);
      if FChar >= $80 then
      begin
         Inc(Iterator);
         if Iterator > SourceLength then break;
         FChar := FChar and $3F;
         if (FChar and $20) <> 0 then
         begin
            FChar := FChar and $1F;
            NChar := Ord(Source[Iterator]);
            if (NChar and $C0) <> $80 then break;
            FChar := (FChar shl 6) or (NChar and $3F);
            Inc(Iterator);
            if Iterator > SourceLength then break;
         end;
         NChar := Ord(Source[Iterator]);
         if (NChar and $C0) <> $80 then break;
         Result := Result + WideChar((FChar shl 6) or (NChar and $3F));
      end
      else
         Result := Result + WideChar(FChar);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var source, result: string;
begin
  source := 'PREPARAÇÃO';
  result := Utf8toAnsi(convertir_utf8_ansi(source));
end;
3
  • 1
    Embora este link possa responder à pergunta, é melhor incluir as partes essenciais da resposta aqui e fornecer o link para referência. As respostas apenas por link podem ser invalidadas se a página com o link for alterada. - Da Revisão Commented 29/08/2017 às 14:25
  • 1
    @UzumakiArtanis tentei pormenorizar mais a informação, espero ter conseguido melhorar a resposta.
    – Tmc
    Commented 29/08/2017 às 14:35
  • 1
    esse código postado aqui, não é o que está na pergunta no S.O. em ingles como o código que não funciona????
    – jsbueno
    Commented 28/04/2019 às 15:10

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .