Zitat:
Delphi-Quellcode:
step:= StrToInt(Faktor.Text);
For N:=0 TO memo1.Lines.Count -1 dO
begin
Zeile:=memo1.Lines[N];
NZeile:='';
For K:=1 To length (Zeile) do
begin
ch:=Zeile [K];
Z:= ord(ch);
NZ:=Z + step;
//If(NZ>91)and(NZ<97) then
// NZ := NZ -26 ;
nch:=chr(NZ);
NZeile:=NZeile + nch;
end;
end;
Memo1.Clear;
Memo2.Lines.add(NZeile);
Ich empfehle dir dringend mal eine etwas bessere Codeformatierung (eine ordentliche Einrückung),
dann würde dir vielleicht auffallen, daß du auch nur die letzte Zeile in das Memo einfügst.
(eine einheitliche Großkleinschreibung und soein Englisch/Deutsch-Mischmasch bei den Variablen muß auch nicht unbedingt sein)
Delphi-Quellcode:
step := StrToInt(Faktor.Text);
For N := 0 To Memo1.Lines.Count -1 do
begin
Zeile := Memo1.Lines[N];
NZeile := '';
For K := 1 To Length(Zeile) do
begin
NZ := Ord(Zeile[K]) + step;
//If(NZ > 91) and (NZ < 97) then
// NZ := NZ - 26;
NZeile := NZeile + Chr(NZ);
end;
Memo2.Lines.Add(NZeile);
end;
Memo1.Lines.Clear;
Ansonsten ... Willkommen an Board
@Muellermilchtrinker:
Strings ist das Default-Array-Property von TStrings, TStringList und Co. ... diesen Namen kann man also weglassen und er wird standardmäßig ausgewählt.