Cäsar-Code

[himitsu]

Zitat von CASA:

dass z nicht zu a umgewandelt wird,

Welches z und a?

Außerdem verschiebst du aktuell alle Zeichen.
Bei Cäsar werden aber nicht alle Zeichen verändert

Delphi-Quellcode:

if eingabe[i] in ['a'..'z'] then
  eingabe[i] := Chr((Ord(eingabe[i]) - Ord('a') + offset) mod 26 + Ord('a'));

Dieses verschiebt z.B. die kleinen Buchstaben a bis z innerhalb ihres Bereichs.

[HLukas]

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

[himitsu]

siehe auch schon in Beitrag #1

Zitat von CASA:

[edit=Luckie]Delphi Tags. Mfg, Luckie[/edit]

Wäre schön, wenn ihr das zukünftig selber macht.
Über den entsprechenden -Button kannste das noch schnell ändern.

Zitat von HLukas:

Will man Zeichen ausnehmen kann das noch eingebaut werden

Will? Es muß, denn rate mal, was dein Code jetzt aus allem macht, was kein Buchstabe innerhalb dieses bestimmten Bereichs ist.
> Leerzeichen, Satzpunkt, Zahlen und Co. werden alle zerstört.

PS: Statt (.i.) macht sich [i] bestimmt übersichtlicher.


@alle anderen mitlesenden Programmierer:
Laufzeit- und Speicheroptimierungen, bezüglich "Ausgabe := Ausgabe + ...", würde ich hier absichtlich mal außen vor lassen.