How to convert utf-8 text to ANSI. Delphi 2006

Question

How to convert text utf-8 for ANSI. The words they use "~" and "´" are coming out wrong, see for example the use of the word "PREPARATION" coming out: "PREPARES 플O" when generating file .CSV using Delphi 2006.

Answer 1

Try using the following code, according to the answer given to this question in Stackoverflow the problem was solved using the internal function of the Delphi UTF8toAnsi and one more function I posted below, using the version 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;