OEMTOANSI behandelt nur Sonderzeichen, diese Methode übernimmt ganau dies:
Delphi-Quellcode:
function SetSonderzeichen(s: string): string;
var
i: integer;
begin
Result := '';
for i := 1 to Length(s) do
begin
case s[i] of
#142: Result := Result + #196; //Ä
#153: Result := Result + #214; //Ö
#154: Result := Result + #220; //Ü
#132: Result := Result + #228; //ä
#148: Result := Result + #246; //ö
#129: Result := Result + #252; //ü
#225: Result := Result + #223; //ß
else
Result := Result + s[i];
end;
end;
end;
Musst einfach mal testen, sollte aber gehen.