Sonderzeichen in Konsolenanwendung: Ansi2OEM

[fkerber]

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