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

[Hawkeye219]

Wie wäre es damit:

Delphi-Quellcode:

function Shift_Letter (ALetter: Char): Char;
begin
  case ALetter of
    'A'..'M', 'a'..'m' : Inc (ALetter, 13);
    'N'..'Z', 'n'..'z' : Dec (ALetter, 13);
  end;
  Result := ALetter;
end;

Gruß Hawkeye

[SirThornberry]

@faux: Ich hatte getippt das "ord" langsamer ist weil es eben eine Funktion ist (somit zeug auf Stack ablegen etc.). Ein Cast hingegen ist kein Funktionsaufruf sondern einfach nur eine Art Compileranweisung. Da aber bei Ord die Compilermagic zum Zuge kommt, scheint ord also nicht als Funktion kompiliert zu werden sondern wird direkt eingebunden.