Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.442 Beiträge
 
Delphi 12 Athens
 
#2

Re: Wie funktioniert Ansi2OEM mit Unicode

  Alt 9. Nov 2009, 09:53
Probier das mal:

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;
Uwe Raabe
  Mit Zitat antworten Zitat