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...