UTF-8 nach ASCII (die 1000ste)

[ernschd]

Delphi-Quellcode:

function OEM2Ascii(const OEMString: AnsiString): AnsiString;
begin
  Result := OEMString;
  if Result <> '' then
    OemToCharA(PAnsiChar(Result), PAnsiChar(Result));
end;