hallo,
@faux:
sorry, ich hab im nachhinein den namen "Xor_Letter" in "Shift_Letter" umbenannt und nicht im Quellcode angepasst - mein fehler
@basilikum:
dein code stimmt fast - nur zwei klammern warn zuviel:
Delphi-Quellcode:
Function Shift_Letter(Letter: Char): Char;
Begin
Case Letter Of
'A'..'Z' : Result:=Chr( ([color=#ff0000]([/color](Ord(Letter) - Ord('A') + (26 - Shifter)) mod 26) + Ord('A') );
'a'..'z' : Result:=Chr( ([color=#ff0000]([/color](Ord(Letter) - Ord('a') + (26 - Shifter)) mod 26) + Ord('a') );
Else Result:=Letter;
end;
end;
ohne die klammern hat die funktion bei mir die gleichen ergebnissse geliefert
