Zitat von
thkerkmann:
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
Da tritt aber wieder der Fehler auf, dass das Listenmaximum überschritten wurde!
