Noch eine Antwort!
procedure TForm1.Button1Click(Sender: TObject);
var Eingabe, Ausgabe : String;
i,
ascii, Schritt : Integer;
begin
Eingabe := Edit1.text;
Ausgabe := '';
Schritt := StrToInt(Edit3.text); // Verschiebegrad
for i := 1 to length(Eingabe) do
begin
ASCII := ord(Eingabe(.i.));
ASCII := ((
ASCII + Schritt-96) mod 26)+96;
Ausgabe := Ausgabe + char(
ASCII);
end;
Edit2.Text := Ausgabe;
end;
Will man Zeichen ausnehmen kann das noch eingebaut werden