Delphi-Quellcode:
function OEM2Ascii(const OEMString: AnsiString): AnsiString;
begin
Result := OEMString;
if Result <> '' then
OemToCharA(PAnsiChar(Result), PAnsiChar(Result));
end;
Das ist
kein OEM to
ASCII !
Zugegeben es gibt in dem Bereich so viele eierlegende Wollmilchsäue, daß da der Überblick verloren gehen kann, aber ein wenig Genauigkeit könnte da nicht schaden.
(das ist eher ASCIItoANSI)
Gruß
K-H