Bin gerade dabei eine Consolen Anwendung zu schreiben. Dabei habe ich festgestellt (mal wieder
) das der Write-Befehl auf die Console nur DOS-OEM-Zeichen ausgibt. Das heist aus "ÜÖÄ üöä ß" wird "▄Í─ ³÷õ ▀".
Geholfen habe ich mir erst einmal mit
Delphi-Quellcode:
function Ansi2OEM(AnsiString: string): string;
begin
ANSIString := ANSIString + #0;
CharToOEM(PChar(ANSIString), @ANSIString[1]);
Delete(ANSIString, Length(ANSIString), 1);
Result := ANSIString;
end;
//
Writeln(Ansi2OEM('Hallöle !'));
welche die Ausgaben der Umlaute auch auf der Console lesbar macht.
Gibt es eine Möglichkeit die Ausgaben auf die Console auf
Ansi umzustellen ?