buchstaben-verschiebung optimieren...

[heiopei]

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