Mal wieder Unicode

[Der schöne Günther]

DecodeString(..) statt Decode(..)

Delphi-Quellcode:

program Project17;

{$APPTYPE CONSOLE}
{$R *.res}

uses System.SysUtils, IdGlobal, IdCoder, IdCoderQuotedPrintable;

const
   input = '=?UTF-8?Q?Heiko_L=C3=BCttge?';
var
   encoder:   TIdDecoder;
   encoding:   IIdTextEncoding;
begin
   encoding := IndyTextEncoding_UTF8();
   // oder encoding := IndyTextEncoding(TEncoding.UTF8);

   encoder := TIdDecoderQuotedPrintable.Create(nil);
   try
      Write(input);
      Write(' -> ');
      Write( encoder.DecodeString(input, encoding) );
   finally
      encoder.Destroy();
   end;
   readln;

end.

=>

Code:

=?UTF-8?Q?Heiko_L=C3=BCttge? -> ?UTF-8?Q?Heiko_Lüttge?