nein: CharToOEM änder die Daten im Puffer
und ReadLn ließt einen String aus und keinen einzelnen Char
Delphi-Quellcode:
var txt: textfile;
s: string;
begin
assign(txt,'E:\t.txt');
reset(txt);
while not eof(txt) do
begin
ReadLn(txt, s);
// eventuell noch ein UniqueString(s); aber ich hoff jetzt
// einfach mal, daß readLn passende Strings liefert
CharToOem(PChar(s), Length(s));
WriteLn(s);
end;
ReadLn;
close(txt);