Schleife im Programm hinzufügen

[Luckie]

for i := 0 to SpinEdit.value do

[DeddyH]

Wenn Du bei 0 anfängst, musst Du aber einen abziehen

[Chris92 .A]

Nein ich benötige jenachdem welche Zahl in der SpinEdit ausgewählt wurde soviele Schleifen im programm damit dieser richtig funktioniert.

Bei der Zahl 3 im SpinEdit benötige ich dies.

while
begin
while
begin
while
begin
end
end
end

Bei der Zahl 2 im SpinEdit benötige ich dies:
while
begin
while
begin
end
end

[DeddyH]

Ja und?

Delphi-Quellcode:

for i := 1 to SpinEdit1.Value do
  begin
    while Dings do
      begin
        DoSomethingWithDings;
      end;
  end;

[Chris92 .A]

Ok muss vielliecht etwas genauer noch werden:

Dieser Code soll da stehen wenn SpinEdit 1 ist:

Code:

  while I <= 90 do
  begin
     lbText.Items.Add(chr(I));
     I := I + 1;
  end;

Dies Code soll da stehen wenn SpinEdit 2 ist:

Code:

while I <= 90 do
begin
  while G <= 90 do
  begin
     lbText.Items.Add(chr(I)+chr(G));
     G := G + 1;
  end;
  I := I + 1;
  G := 65;
end;

Dies Code soll da stehen wenn SpinEdit 3 ist:

Code:

while I <= 90 do
begin
  while G <= 90 do
  begin
     while Z <= 90 do
     begin
         lbText.Items.Add(chr(I)+chr(G)+chr(Z));
         Z := Z + 1;
     end;
     G := G + 1;
     Z := 65;
  end;
  I := I + 1;
  G := 65;
end;

usw...

MFG

Chris92 .A

[Sir Rufo]

Ich schieß mal so ins Blaue ... soll das Programm etwa alle Permutationen von Zeichenfolgen liefern (Char-Code von 65 bis 90) und du willst die Länge der Zeichenfolge vorgeben?
- Mal abgesehen davon, dass die Initialisierung der Schleifen-Variablen nicht korrekt ist -

[Chris92 .A]

Ich will einfach wenn ich jetzt z.b sage 5 dass er mir alle möglichkeiten an Wörter kombintation vorgibt die es mit 5 buchstaben gibt.

[Gargoyl]

Delphi-Quellcode:

Procedure rek(iLoop: integer; sStr: String);
var
  i: integer;
begin
  for i := 65 to 90 do 
    begin
      if (iLoop > 1) then rek(iLoop - 1, chr(i) + sStr);
      lbText.Items.Add(chr(i) + sStr);
    end;
end;

Und aufrufen tust du es mit:
rek(SpinEdit.Value, ''); Ich habe es jetzt nicht getestet, aber so, oder so ähnlich könnte es funktionieren.

PS: ich habe deine WHILE Schleife durch eine FOR Schleife ersetzt.

[Chris92 .A]

Ok danke Gargoyl dies funktioniert so nur ein Problem hab ich wenn er jetzt bei AZ angekommen ist soll ja BA kommen doch dann schreibt er als erstes einmal A und dann kommt erst BA. Das gleiche bei BZ.

So sieht es ungefähr aus:
AA
...
AZ
A
BA
...
BZ
B
CA
...
CZ
C


usw...