Habe gerade noch geschaut wie das in der System.pas tatsächlich gehandelt wird.
Wenn es Dir nur darum geht in ein Textfile mit Write und Writeln zu schreiben reicht es aus bei der Erzeugung des Files
die richtige codepage zu setzen.
Also
Delphi-Quellcode:
procedure StringtoFileTest(const Value : string) ;
Var f : TextFile;
begin
AssignFile(f, 'D:\Test\test.txt');
SetTextCodePage(f, 437);
rewrite(f);
writeln(f, StringtoOem(Value));
writeln(f, Value);
closefile(f);
end;
StringtoFileTest('Bücher');
ergibt im erzeugten File:
Zitat:
BšCHER
BšCHER
Write und Writeln überprüfen die CodePage des Files und wandeln wenn notwendig um.