buchstaben-verschiebung optimieren...

[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