Hä? Willst du alle Permutationen? Davon gibt es N! (bei einem String der Länge N), oder nur ganz bestimmte? Mein Algo sollte 120 Permutationen von '12345' aufzählen.
Beschreib doch nochmal genau, welche Du brauchst...
Aha... im Eingangsposting sah das Anders aus:
Das hier?
Delphi-Quellcode:
Function BioserPermutation (aString : String; aCount : Integer) : String;
Var
s :String;
Begin
Assert (aCount < Length (aString), 'Unzulässige Sequenznummer');
s := Copy (aString, aCount+1, 1); // Dieses Zeichen soll nach vorne;
Delete (aString, aCount+1,1); // Das Zeichen löschen
Result := s + aString;
End;