Hallo,
ich schreibe in der Schule eine Facharbeit im Fach Informatik,
jedoch habe ich ein Problem bei dem ich von alleine nicht auf die Lösung komme.
Es geht sich um die Cäsar-Verschlüsselung die soweit auch ohne Probleme geht.
Ich will jedoch die Eingabe von dem Edit-Feld nur auf zahlen beschränken.
Hierbei ist mein Problem dass ich dies in eine if verschachtelung(sofern man es so nennen kann) einbauen muss und keine Ahnung haben wie.
Ich würde mich über schnelle Hilfe sehr freuen.
Hier also noch der Quelltext in den ich diese Überprüfung eingebunden haben will.
Delphi-Quellcode:
procedure TForm1.btsatztverschluesselnClick(Sender: TObject);
var i, k, v: integer;
begin
if length (edeingabe.text)=0 then
begin
showmessage('Es ist kein Satz zum verschlüsseln vorhanden!')
end
else begin
v:= StrToIntdef(edverschiebung.Text,5);
edausgabe.clear;
for i := 1 to Length(edeingabe.Text) do
begin
k:= Ord(edeingabe.Text[i]);
k := k + v;
edausgabe.Text := edausgabe.Text + chr(k);
end;
end;
end;