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]