Umlaute und 'ß' aus Textdatei korrekt anzeigen

[Delphi_gn7]

Zitat von himitsu:

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

--> Fehlermeldung: "Inkompatible Typen: 'Integer' und 'PAnsiChar'"