OEM to ANSI mit Delphi 8

[Touchdown]

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.