wir haben ein riesiges Problem
und zwar wollen wir ein Programm zum Cäsar-Code schreiben, um uns auf eine bevorstehende Klausur vorzubereiten.
Delphi-Quellcode:
procedure TForm1.CodierenClick(Sender: TObject);
var eingabe, ausgabe1 :
String;
i,
ascii, schritt, n : Integer;
c : char;
begin
eingabe := EditEingabe.text;
ausgabe1 := '
';
n := StrToInt(EditVerschiebungsgrad.text);
for i := 1
to length(eingabe)
do
begin
c := EditEingabe.text[i];
ASCII := ord(c);
schritt := n;
ASCII :=
ASCII + schritt;
if ASCII < ord(n)
then ASCII :=
ASCII - 26;
EditAusgabe1.Text := EditAusgabe1.text + chr(
ASCII);
end;
end;
nun muss aber noch ein mod mit in die procedure, allerdings wissen wir nicht, wie wir das umsezten sollen.
wenn ihr uns helfen könntet, wäre das sehr nett.
[edit=Luckie]Delphi Tags. Mfg, Luckie[/edit]