Delphi Wie funktioniert Ansi2OEM mit Unicode

Thema durchsuchen

Ansicht

Themen-Optionen

Wie funktioniert Ansi2OEM mit Unicode

Ein Thema von heri · begonnen am 9. Nov 2009 · letzter Beitrag vom 9. Nov 2009

Antwort

Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.687 Beiträge

Delphi 12 Athens

Re: Wie funktioniert Ansi2OEM mit Unicode

9. Nov 2009, 08:53

Probier das mal:

zusammenfalten · markieren

Delphi-Quellcode:

			function Ansi2OEM(Const AString: String): AnsiString;

var

  lResult: AnsiString;

begin

  SetLength(lResult, Length(AString));

  {$IFDEF WIN32}

  CharToOEM(PChar(AString), PAnsiChar(lResult)); {32Bit}

  {$ELSE}

  AnsiToOEM(PChar(@AString[1]), PChar(@lResult[1])); {16Bit}

  {$ENDIF}

  Result := lResult;

end;