Dann fällt mir eigentlich nur noch sowas ein:
Delphi-Quellcode:
function ErsetzeUmlaute(s: string): string;
var i: integer;
begin
for i := 1 to length(s) do
begin
Case s[i] of
'ä': result := result+'ae';
'ü': result := result+'ue';
'ö': result := result+'oe';
'ß': result := resultü'ss';
else: result := resultüs[i];
end;
end;
end;
Oder gibt es was eleganteres?