Und
imho müsstest du zur Ausgabe lediglich
Delphi-Quellcode:
function ChrToOem(s: string): string;
begin
SetLength(Result, Length(s));
CharToOem(PAnsiChar(s), @Result[1]);
end;
function OemToChr(s: string): string;
begin
SetLength(Result, Length(s));
OemToChar(PAnsiChar(s), @Result[1]);
end;
verwenden.
Nachtrag:
Wenn man nur mit ChrToOem konvertiert, käme es zu kuddel-muddel. Strings die du im Quelltext festgelegt hast wären im
ASCII-Zeichensatz, Strings die du später einließt im OEM-Zeichensatz. Deswegen habe ich noch die Routine zum Konvertieren von Oem nach
ASCII hinzugefügt.