TNTUnicode Widestringlist in ANSI bzw. ISO8859_1 umwandeln?

[Grolle]

Hallo,

ich benutze die TNTUnicode Komponenten von TMS um eine (Unicode)textdatei in eine TNTStringlist zu laden. Wie kann ich die denn jetzt intern in ANSI umwandeln? Gibts da von den Komponenten eine Funktion?

Viele Grüße ...

[mkinzler]

Beinhaltet der Unicode-String den ANSI-only Zeichen?

[Grolle]

Hi,

eigentlich schon. Da können höchstens mal nen paar Umlaute (ß,ö ...) auftreten.

Viele Grüße ...

[Grolle]

*putsch*

[Bernhard Geyer]

Zitat:

Zitat von Grolle

*putsch*

Gegenputsch :-)

Für Systeme die unter Codepage 1252 / ISO8859 laufen reicht folgendes (ungestested):

Delphi-Quellcode:

var
  AnsiList: TStringList;
  TNTList: TTNTStringList;

...

  TNTList.AssignTo(AnsiList);
...

[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;