Codierung

[moment_]

Betrügen wäre, wenn ich im Internet den ganzen Quelltext für das Programm finden würde und abgeben würde und eine kassieren würde.
Ich hab ja schon die Hälfte der Aufgabe fertig. Nur die letzte Teilaufgabe nicht:
Das Programm-Projekt Codierungsprojekt ist so weiter zu führen, dass die Routinen, die auf das Anklicken der
Check-Boxen hin ausgelöst werden, in Unterprozeduren
der Prozeduren procedure THauptformular.Ersetzungs-verfahrenButtonClick(Sender: TObject);
und procedure THauptformular.Versetzungsverfahren-ButtonClick(Sender: TObject); ausgelagert werden.

Mein Quelltext für Ersetzungsverfahren:

Delphi-Quellcode:

procedure TForm1.ErsezungButtonClick(Sender: TObject);
var
Wort, codiertesWort : String;
i,Nummer : Integer;
Zeichen : Char;
begin
   if Box1.checked then
   begin
   Wort:=WortEdit.Text;
   codiertesWort:='';
   for i:=1 to length(Wort) do
                begin
                Zeichen:=Wort[i];
                Nummer:=Ord(Zeichen);
                Nummer:=Nummer+3;
                Zeichen:=Chr(Nummer);
                codiertesWort:=codiertesWort+Zeichen;
                codiertesWortEdit.Text:=codiertesWort;
                end;


   end;

if box2.Checked then
   begin
   Wort:=WortEdit.Text;
   codiertesWort:='';
   for i:=1 to length(Wort) do
                begin
                Zeichen:=Wort[i];
                Nummer:=Ord(Zeichen);
                Nummer:=Nummer+2;
                Zeichen:=Chr(Nummer);
                codiertesWort:=codiertesWort+Zeichen;
                codiertesWortEdit.Text:=codiertesWort;
                end;
   end;
if Box3.Checked then
    begin
    Wort:=WortEdit.Text;
    codiertesWort:='';
    for i:=1 to length(Wort) do
                begin
                Zeichen:=Wort[i];
                Nummer:=Ord(Zeichen);
                Nummer:=Nummer+1;
                Zeichen:=Chr(Nummer);
                codiertesWort:=codiertesWort+Zeichen;
                codiertesWortEdit.Text:=codiertesWort;
                end;


  end;
end;

Das mit Versetzungsverfahren kann ich dann alleine machen, wenn ich das mit dem Ersetzungsverfahren verstanden habe

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]