Die ganzen IF-Dinger kannst Du Dir sparen, wenn Du dir mal
chr() und
ord() anschaust. Dann brauchst Du Dir nur noch den "Sonderfall Z" vorzunehmen und hier "z" bzw. "Z" durch "a" bzw. "A" ersetzen. Dann hast Du einen übersichtlichen Quellcode und maximal 10 Zeilen zu programmieren
Delphi-Quellcode:
i : integer;
ascii : integer;
Text1 :
String;
Text2 :
String;
[...]
Text2 := '
':
for i := 1
to Length(Text1)
do
Text2 := Text2 + Chr(Ord(Text1[i])+1);
// Sonderfall "z" nicht berücksichtigt, nur ein Denkanstoß...
[...]