UTF8 String auf Datei mit writeln?

[HPW]

Was mache ich da falsch:

Delphi-Quellcode:

var
   linestr   : String;
   utfstr    : UTF8String;
   outstr    : String;
   Fin       : TextFile;
   Fout      : TextFile;

...
...

     while not Eof(Fin) do
       begin
         Readln(Fin, linestr);
         utfstr := AnsiToUTF8(linestr);
         outstr := '['+utfstr+']';
         Showmessage(outstr);
         Writeln(Fout, outstr);
       end;
...

In der Messagebox sehe ich für den String 'ABCDÄÖÜßäöü€@' dieses '[ABCDÄÖÜßäöü€@]'
aber in der Ausgabedatei ist es '[ABCDÄÖÜßäöü€@]'?

[ste_ett]

ShowMessage() unterstützt kein UTF8.

[HPW]

Das ist ja auch nicht mein Problem.
Ich will ja zur Kontrolle sehen welche Zeichen zu Double-Byte-Zeichen konvertiert wurden.
Aber warum macht 'writeln' automatisch eine Rückkonvertierung?
Ich will das TXT file ja als UTF8 weitergeben und nicht als ANSI/ASCII.

[Waldteufel]

Hi.

Zitat von HPW:

Aber warum macht 'writeln' automatisch eine Rückkonvertierung?

Woran merkst du denn, dass da eine Rückkonvertierung geschieht. Könnte es nicht einfach sein, dass dein Texteditor, mit dem du die Datei anzeigst, UTF-8 unterstützt?

[HPW]

Oops, peinlich!
Ja mein Ultraedit macht beim Öffnen automatisch eine Konvertierung zur Anzeige.
Nochmal Entschuldigung.

[Bernhard Geyer]

Zitat von HPW:

Ich will ja zur Kontrolle sehen welche Zeichen zu Double-Byte-Zeichen konvertiert wurden.

UTF8 ist nicht Double-Byte-Zeichen. UTF8-Codierte Zeichen können 1-3 Byte einnehmen (In neuesten Version mit Unicode 4 auch 4 Byte).
Ist zwar für das Problem irrelevant aber wollte es mal anmerken