Umlaute: ü -> ue

[rowkajjh]

Ich habs jetzt so gelöst:

Delphi-Quellcode:

begin 
   result := ''; 
   slen := Length(s); 


   for i := 1 to slen do 
   begin 
      case s[i] of 
         'ä': result := result + 'ae'; 
         'ö': result := result + 'oe'; 
         'ü': result := result + 'ue'; 
         'Ä': result := result + 'AE'; 
         'Ö': result := result + 'OE'; 
         'Ü': result := result + 'UE'; 
         'ß': result := result + 'ss'; 
      else 
         result := result + s[i]; 
      end; 
   end; 
end;

Geht erstmal. Ich habe aber Angst, daß mein DOS-Text irgendwann mal kyrillische Buchstaben enthält - dann gehts natürlich nicht mehr. Gips eine Funktion, um zu prüfen, ob ein Text nur 7bit-Zeichen enthält?