Umlaute und 'ß' aus Textdatei korrekt anzeigen

[p80286]

Delphi-Quellcode:

 CharToOem(PChar(s), Length(s)); 
-->
 CharToOem(PChar(s), Pchar(s)));
 Writeln(so);

oder aber mit zwei strings si und so
CharToOem(PChar(si), Pchar(so)); ggf. muß auch AssignFile und CloseFile verwendet werden!

Gruß
K-H