Entwickler-Ecke

Algorithmen, Optimierung und Assembler - Caesar Verschlüsselung


DelphiNooby - Mi 10.11.04 20:01
Titel: Caesar Verschlüsselung
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 user profile iconChristian S.: Code- durch Delphi-Tags ersetzt.


.Chef - Mi 10.11.04 20:06
Anstatt

Delphi-Quelltext 
1:
 
VMemo.Lines[I]:=NeuText;

das hier

Delphi-Quelltext 
1:
 
VMemo.Lines.Add(NeuText);


Gruß,
Jörg


DelphiNooby - Mi 10.11.04 20:15
Ohh Danke,

jetzt wo ich es sehe fallen mir die Tomaten von den Augen.

Bis dann
Nooby


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!