Wie funktioniert Ansi2OEM mit Unicode

[himitsu]

Wohl eher {$IFDEF UNICODE} ... Unicode hat nix mit 16 oder 32 Bit zu tun.

Delphi-Quellcode:

function AnsiToConCP( AString: String ): AnsiString;
  Begin
    SetLength( Result, length( AString ) );
    CharToOEM( PChar( AString ), PAnsiChar( Result ) );
  End;

function AnsiToConCP( AString: String ): AnsiString;
  Begin
    SetLength( Result, length( AString ) );
    {$IFDEF UNICODE}
      CharToOEM( PChar( AString ), PAnsiChar( Result ) );
    {$ELSE}
      AnsiToOEM( PChar( AString ), PAnsiChar( Result ) );
    {$ENDIF}
  End;