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);