TNTUnicode Widestringlist in ANSI bzw. ISO8859_1 umwandeln?

[himitsu]

Wenn es unbedingt ISO-8859-1 sein muß, dann WideCharToMultiByte mit der CodePage 28591.

z.B.:

Delphi-Quellcode:

var Sw: WideString;
  Sa: AnsiString;
  i: Integer;

Sw := TNTStringList.Text;
i  := WideCharToMultiByte(28591, 0, PWideChar(Sw), Length(Sw), nil, 0, nil, nil);
If (i = 0) and (Sw <> '') Then FehlerMeldungAusgeben;
SetLength(Sa, i - 1);
WideCharToMultiByte(28591, 0, PWideChar(Sw), Length(Sw), PAnsiChar(Sa), Length(Sa) + 1, nil, nil);
StringList.Text := Sa;