Schleifen-Verschachtelungs-Problem

[himitsu]

Am Einfachsten du nutzt ein paar rekursive Aufrufe einer Funktion.

Delphi-Quellcode:

procedure Test(Start, Ende, Rekursion: Integer; SL: TStrings);
  procedure Aufruf(Start, Ende, Rekursion: Integer; SL: TStrings; const S: String);
  var
    i: Integer;
  begin
    if Rekursion <> 0 then
    begin
      for i := Start to Ende do
        Aufruf(Start, Ende, Rekursion - 1, SL, S + IntToStr(i));
    end else
      SL.Add(S);
  end;

begin
  Aufruf(Start, Ende, Rekursion, SL, '');
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Test(1, 3, 4, Memo1.Lines);
end;

PS: Bei einem Memo könnte ein BeginUpdate eventuell auch nicht schaden.