Einzelnen Beitrag anzeigen

roderich
(Gast)

n/a Beiträge
 
#3

Re: ANSI to OEM Konvertierung

  Alt 9. Sep 2003, 09:53
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
  Mit Zitat antworten Zitat