Große String-Liste out of Memory - Hilfe?

[Pogoner]

Zitat von Dejan Vu:

PS: Bezüglich einer möglichen Optimierung wurde hier aber schon einiges Sinnvolle zwischen den Verschwörungstheorien gepostet. Wer suchet, der findet.

Ja mit dem finden ist das eine Sache, mit dem anwenden können eine andere

Ich habe es rekursiv probiert, aber ich darf in einer For-Schleife den Integer-Wert nicht verändern? Wie sage ich ihm dann, dass er immer wieder 10x durchlaufen soll?


Also der Code funktioniert - aber mehrere For-Schleifen ineinander zu schachteln hab ich nicht hinbekommen...

Delphi-Quellcode:

                I:= 1    ;
                I2:= 1    ;
                I3:= 1    ;
                I4:= 1     ;

           NichtRekursiv:

             //   If I4 < 11 begin

                 npw:= astring[I]+bstring[I2]+cstring[I3]+dstring[I4]   ;
                 I4 := I4 + 1;
                  If I4 = 11 then
                        begin
                        I3 := I3+1     ;
                        I4 := 1        ;
                        end;
                  If I3 = 27 then
                        begin
                        I2:= I2+1;
                        I3 := 1;
                        I4:= 1;
                        end;
                  If I2 = 11 then
                        begin
                        I:= I+1;
                        I2 := 1;
                        I3 := 1;
                        I4 := 1;
                        end;
                                If (I = 26) and (I2 = 10) and (I3 = 26) and (I4 = 11) then
                                begin
                                        Goto DasEnde           ;
                                end;
                   showmessage (npw);
                  Goto NichtRekursiv    ;

                  DasEnde:
                  showmessage (npw);
                  end;

Wenn jemand mir sagen kann, wie das hier in schön aussieht, wäre das sehr nett^^ Vorallem hätte ich dann mal ein Beispiel für verschachtelte For-Schleifen...