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