Lotto Systemspiele berechnen

[BoolString]

Hab den Thread nur kurz überflogen. Meinst du so etwas:

Delphi-Quellcode:

Procedure TForm1.CalcCombinatoricGenes (CombinatoricResult, Rest : String; CalcDepth : Integer);
Var Runner  : Longint;
    Counter : Int64;
Begin
//  If (Rest='') Or (CalcDepth=0) THen
//  Begin
//    If CheckRules (CombinatoricResult)THen
//    Begin
//      ListBox1.Items.Add(CombinatoricResult);
//    end;

    ListBox1.Items.Add (CombinatoricResult);

  end
  Else
  Begin
    For Runner := 1 to Length (Rest) do
    Begin
      CalcCombinatoricGenes (CombinatoricResult + Rest [Runner],
                               Copy (Rest, 1, Runner-1) + Copy (Rest, Runner+1, Length (Rest)-1),
                               CalcDepth-1);
    end;
  end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  CalcCombinatoricGenes ( '', '123456789', 5);
end;

Komlett rekursiv.

- CombinatoricResult enthält die Ergebnisse
- Rest enthält die noch nicht entnommenen Elemente; bei erstem Aufruf die übergebene Liste der zur Verfügung stehenden Elemente
- Depth sagt, wie viele Elemente aus der Ursprungsmenge von Rest entnommen werden sollen

Für deine Anwendung müsstest du dir überlegen, wie du deine Zahlen/Elemente 'tokenisen' kannst. Z.B. in Chars umwandeln. Bin mir aber gerade nicht sicher, ob das komplett Unicode konform ist...

Falls das komplett am Ziel vorbei schießt, schmeist meinen Beitrag einfach aus dem Thread...

Jan