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 !