Hallo Zusammen,
wir sollen für die Schule ein Programm schreiben, dass einen Text mit Caesar verschlüsselt.
Dafür habe ich ein Memo (OMemo) in welcher der Benutzer den Text eingib und ein anderes (VMemo) in welchem der Text wieder ausgegeben werden soll.
Nun zu meinem Problem:
Mein Programm Verschlüsselt den Text soweit, aber immer nur die erste Zeile des EingabeMemos.
Habe aber keine Ahnung warum, dies so ist.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.VerschluesselnClick(Sender: TObject);
var i,j,Shift :Integer;
Text,NeuText: String;
begin
Shift:=SpinEdit1.Value;
VMemo.Text:='';
For I:=0 To OMemo.Lines.Count-1 Do Begin
Text:='';
NeuText:='';
Text:=OMemo.Lines[I];
For J:=1 To Length(Text) Do Begin
NeuText :=NeuText+Chr(Ord(Text[J])+Shift);
end;
VMemo.Lines[I]:=NeuText;
J:=0;
SpinEdit1.Value:=1;
end;
end; |
Wenn mir jemand sagen könnte was ich falsch gemacht habe, wäre ich euch sehr dankbar.
Bis dann
Nooby
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt.
