Zitat von
alzaimar:
So erzeugst Du alle Permutationen eines Strings ('12345'):
Delphi-Quellcode:
Var
i : Integer;
s : String;
Begin
i:=0;
Repeat
s := NthPermuation ('12345',i);
inc (i);
if s<>'' Then Memo1.lines.add (s);
Until s= '';
End;
Danke für Deine Antwort. Aber, ich weiß nicht, ob dies eine echte Permutation ist,
was ich haben möchte. Deine function spuckt mir folgende Permutationen aus:
54132
54213
54231
54312
54321
Ich brauche aber diese Kombinationen:
12345
21345
31245
41235
51234
Bei 1234 zum Beispiel so:
1234
2134
3124
4123