Buchstabenshifter

[Lannes]

Hallo,

noch eine Möglichkeit:

Delphi-Quellcode:

  s := Edit1.Text;
  for z := 1 to Length(s) do
    case s[z] of
      'Z'        : s[z] := 'A';
      'z'        : s[z] := 'a';
      'A'..'Y',
      'a'..'y'   : s[z] := Chr(Ord(s[z])+1);
      'ä'        : s[z] := 'ö';
      'ö'        : s[z] := 'ü';
      'ü'        : s[z] := 'ä';
      'Ä'        : s[z] := 'Ö';
      'Ö'        : s[z] := 'Ü';
      'Ü'        : s[z] := 'Ä';
     end;
  Edit2.Text := s;