ANSI to OEM Konvertierung

[roderich]

ich mach's so:

Delphi-Quellcode:

function OEM2Ansi(OEMString: string): string;
begin
  OEMString := OEMString + #0;
  OemToChar(PChar(OEMString), @OEMString[1]);
  Delete(OEMString, Length(OEMString), 1);
  Result := OEMString;
end;


function Ansi2OEM(AnsiString: string): string;
begin
  ANSIString := ANSIString + #0;
  CharToOEM(PChar(ANSIString), @ANSIString[1]);
  Delete(ANSIString, Length(ANSIString), 1);
  Result := ANSIString;
end;

weiß nicht ob's noch kürzer oder eleganter geht...
Roderich