Hi!
Muetze1 stellt
hier eine Funktion vor, mit der man Strings so umwandeln kann, dass auch Sonderzeichen bei der Ausgabe in der Konsole mittels writeln korrekt wiedergegeben werden:
Delphi-Quellcode:
function Ansi2OEM(
Const AString:
String):
String;
var
lResult:
String;
begin
SetLength(lResult, Length(AString));
{$IFDEF WIN32}
CharToOEM(PChar(AString), PChar(lResult));
{32Bit}
{$ELSE}
AnsiToOEM(PChar(@AString[1]), PChar(@lResult[1]));
{16Bit}
{$ENDIF}
Result := lResult;
end;
Benötigt wird dabei die
Unit "Windows"
Ciao Frederic