Zitat von
alzaimar:
Oh, ist doch aber nicht schwer:
Delphi-Quellcode:
Procedure BiosenPermutator (aList, aOutput : TList; aCount : Integer);
Begin
aOutput[0] := aList [aCount];
For i := 0
to High (aList)
do
if i<aCount
then
aOutput[i+1] := aList[i]
else if i>aCount
Then
aOutput[i] := aList[i];
End;
Ungestet, aber sollte klappen.
Ja, das sieht doch sehr gut aus. Danke. Das high brauche ich nicht, dafür setze ich alist.count-1 ein. Vorher sollte man noch die Ausgabeliste mit Create erzeugen. Die Ausgabeliste benötigt aber noch Speicherplatz, oder ? So funktioniert es nämlich nicht.