Umlaute in einem String umwandeln

[Chris603]

@Hansa: Daaaanke! Jetzt klappt's wenn auch mit kleiner Änderung:

Delphi-Quellcode:

function Replace(s: AnsiString): AnsiString;
var
  i: integer;
begin
  for i := 1 to Length(s) do
  begin
    case s[i] of
      #142: Result := Result + 'Ae'; // Ä
      #153: Result := Result + 'Oe'; // Ö
      #154: Result := Result + 'Ue'; // Ü
      #132: Result := Result + 'ae'; // ä
      #148: Result := Result + 'oe'; // ö
      #129: Result := Result + 'ue'; // ü
      #225: Result := Result + 'ss'; // ß
    else
      Result := Result + s[i];
    end;
  end;
end;

Davor mit den Codes kamen nur recht seltsame Zeichen raus^^

Und nein, unser Lehrer hat uns überhaupt nichts darüber gesagt, er hat uns nur die Email geschrieben:
2. Erstellen Sie ein Programm, das die deutschen Umlaute ä, ö, ü, ß in ae, oe, ue und ss in einer vom Benutzer eingegebenen Zeichenkette ersetzt und das Ergebnis wieder ausgibt. Naja, jetzt hab Ich's ja, nochmal Vielen Dank

@baumina: Sorry, das hätte mir auch weitergeholfen! Dummerweise hab Ich im Forum nicht nach Umlauterkennung, sondern nach Umlaute-Umwandeln gesucht :/ Ich hab das wirklich net gesehen, sry!

LG
Chris