UTF8/Unicode/Ansicode Konvertierungen!

[Mavarik]

Hallo Zusammen!

Ich steh irgendwie gerade auf dem Schlauch...

Die Routine

Delphi-Quellcode:

var
  F : Textfile;
  S : WideString;
begin
  Assignfile(F,'Foo.Dat');
  Rewrite(F);
  S := 'üöäßé•©';
  Writeln(F,S);
  Closefile(F)
end;

Schreib die Zeichen so in die Datei wie sie auf dem Bildschirm stehen...
Als "1Byte" Strings.

Textedit XY schreib die gleiche Zeichenfolge als(üöäÃYéâ_¢Â©) auf die Platte.. UTF8??

Also beim einlesen

Delphi-Quellcode:

var
  F : Textfile;
  S : WideString;
  A : String;
begin
  Assignfile(F,'Foo.dat');
  Reset(F);
  Readln(F,S);          // in S steht üöäÃYéâ_¢Â©  Length(15)=15
  A := UTF8ToString(S); // potenzieller Datenverlust 
  Closefile(F)
end

1. Wieso Datenverlust? Wie wäre es richtig?
2. Wie kann ich, nachdem ich mit A gearbeitet habe den String wieder wegschreiben sodas Editor XY den wieder lesen kann?

Mavarik