Zitat von
mo_greene:
Es funktioniert
Vielen Dank!!!
Habe nur noch ein kleines Anliegen:
Es fehlt das letzte Zeichen des Textes...habe ich einen Denkfehler gemacht?
Delphi-Quellcode:
repeat
for i := 0 to length (Schluessel) do // x = Länge des Schlüssels
begin
List.Add(''); // x = Anzahl der Elemente in List
List.Strings[i]:= List.Strings[i] + Klartext[zeichen];
//List.Insert(i, Klartext[Zeichen]);
inc (Zeichen);
inc (z);
if z = length (Klartext) then
break;
end;
i := 0;
until z = length(Klartext);
Du hast jetzt aber eine Liste, die viel länger ist als gewollt.
Da du ja nicht nur in der ersten Runde in deine Liste Zeilen einhängst, sondern in jeder, bleiben jede Menge leere Listenzeilen übrig. Ich würde die Liste vor der repeat Schleife mal mit leeren Strings füllen, und dann weitermachen.
also
Delphi-Quellcode:
for i:=0 to length(Schluessel) do
List.Add('');
repeat
for i:=0 to length(Schluessel) do
begin
List.Strings[i] ...
...
end
i := 0; // kannste dir schenken ist unnötig
until z > length(Klartext);
Gruss