Thema
:
Delphi
Wie funktioniert Ansi2OEM mit Unicode
Einzelnen Beitrag anzeigen
Uwe Raabe
Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.442 Beiträge
Delphi 12 Athens
#
2
Re: Wie funktioniert Ansi2OEM mit Unicode
9. Nov 2009, 09: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
;
Uwe Raabe
Zitat
Uwe Raabe
Öffentliches Profil ansehen
Besuche die Homepage von Uwe Raabe!
Mehr Beiträge von Uwe Raabe finden