Variablen während Laufzeit erzeugen?

[quendolineDD]

Nehm die Schleife mal nur bis length(schluessel) -1

Delphi-Quellcode:

repeat
    for i := 0 to length (Schluessel)-1 do // x = Länge des Schlüssels
    begin                                // x = Anzahl der Elemente in List
      List.Strings[i]:= List.Strings[i] + Klartext[zeichen];
      inc (Zeichen);
      inc (z);
    end;
    i := 0;
    until z = length(Klartext);

[mo_greene]

macht leider keinen unterschied

[quendolineDD]

Dann mach evtl. mal die Optimierung aus, wenn du die noch an hast im Compiler Menü und dann gehe mal den Quelltext mit F7 durch und schaue, wo du eine Bereichsverletzung hast. irgendwo müssen deine Zählvariabeln die Bereiche deiner Strings übersteigen

[inherited]

Nur weil schluessel so gross ist nehme ich an dass du die Stringlist nicht vergrößert hast.
Du musst neue Zeilen per StringList.Add hinzufügen.

[mo_greene]

er bleibt, wenn ich mit F7 durchgehe bei folgender Zeile stehen

      List.Strings[i]:= List.Strings[i] + Klartext[zeichen]; Vorher hatte ich anstelle dieser Zeile folgendes stehen:

List.Insert(i, Klartext[Zeichen]); Damit hat es geklappt, aber leider wird der String mit dem Index immer überschrieben, was ich ja nicht möchte. Dieser soll beibehalten werden und je um ein Zeichen erweitert werden

Zitat von inherited:

Nur weil schluessel so gross ist nehme ich an dass du die Stringlist nicht vergrößert hast.
Du musst neue Zeilen per StringList.Add hinzufügen.

Auch wenn der Schlüssel den Wert 1 hat, funktioniert es nicht!

[inherited]

Wenn deine Stringlist kein Element hat, wird es noch nichmal bei Schluessel=0 klappen. Es ist wie ein leerer Eierkarton: wenn du versucht das Ei an Position 3 kaputt zu hauen schlägst du ins leere, weil da einfach nichts ist. Du musst halt erst Eier reinpacken (.Add)

[quendolineDD]

Auf über 255 Zeichen pro String kommst du aber nicht?
Vergiss nicht, das eine StringListe mit List:= TStringList.Create; erstellt werden muss.

So wie du das machst, muss die StringListe am Index i schon einen Eintrag haben, sobald dort keiner ist, überschreitest du halt das Listenmaximum

[inherited]

Was spielt das für eine Rolle?

[mo_greene]

Ja klingt logisch ...danke

aber leider funktioniert es immernoch nicht...

Delphi-Quellcode:

      
List.Add('');
List.Strings[i]:= List.Strings[i] + Klartext[zeichen];

Kann ich nicht ein leeres Element einfügen?

Ich komme nicht auf über 255 und die Liste wird auch erstellt

[OldGrumpy]

Bitte nochmal den Quelltext am Stück posten, danke