Delphi-PRAXiS - Delphi Sonderzeichen in Konsolenanwendung: Ansi2OEM

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