Zahlen-Kombinationen

[bioser]

Ich habe die function BioserPermutation benutzt. Leider habe ich aber gesehen,
daß mir das nicht richtig weiterhilft. Ich will jetzt nochmal genauer
werden. Ich benutze TList. Hier sind Daten abgelegt. Nun ist meine
Idee, daß ich mir eine Kopie von der Liste mache um damit dann
die Elemente nach obigen Beispielen zu permutieren.

XML-Code:

OrList:TList (Original)

0      1      2      3      4      5
Elem0  Elem1  Elem2  Elem3  Elem4  Elem5


CoList:TList (Kopie)

0      1      2      3      4      5
Elem0  Elem1  Elem2  Elem3  Elem4  Elem5

1      0      2      3      4      5
Elem1  Elem0  Elem2  Elem3  Elem4  Elem5

2      0      1      3      4      5
Elem2  Elem0  Elem1  Elem3  Elem4  Elem5

usw.

Delphi-Quellcode:

for i:=0 to CoList.count-1 do
begin
 //Dateninhalt verarbeiten
....
//nächste Permutation erzeugen 
end;

Genau das will ich machen !