@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