Stringlist nur leicht mischen?

[codipodi]

Hallo zusammen,
ich würde gerne eine Stringlist zufällig durchmischen. Soweit kein Problem, gibt es bereits:

Code:

procedure Shuffle(List: TStrings);
var
  i: Integer;
begin
  Randomize;
  List.BeginUpdate;
  try
    for i := 0 to Pred(List.Count) do
      List.Exchange(i, Random(List.Count));
  finally
    List.EndUpdate;
  end;
end;

Quelle: http://www.delphipraxis.net/110463-s...g-mischen.html

Mein Problem ist allerdings das ich die Liste nicht von vorne bis hinten auf den Kopf stellen möchte sondern nur leicht verändern will. Konkret geht es um eine Liste mit 1000 Einträgen.

Wie die Begrenzung genau aussehen soll lasse ich bewusst offen da ich nicht weiß welche sich am einfachsten umsetzen lässt. Mir würde z.B. einfallen das die Einträge sich um maximal 5 Plätze verschieben lassen oder in ihrer 10 Einheit bleiben (z.B. 88 darf nur von 81-90 verschoben werden).

Kann mir jemand weiterhelfen wie ich das realisieren kann? Random lässt sich ja nicht derart einschränken.

PS: Die Geschwindigkeit spielt keine Rolle.

Vielen Dank,

LG
Christian

[SirThornberry]

Minimiere doch einfach die Anzahl wie oft getauscht wird.

[jaenicke]

Zitat von codipodi:

Random lässt sich ja nicht derart einschränken.

Inwiefern nicht? Eigentlich geht das doch problemlos, dass du angibst in welchem Bereich die zu erzeugende Zahl liegen soll.

[codipodi]

Vielen Dank für eure Antworten.

Zitat von SirThornberry:

Minimiere doch einfach die Anzahl wie oft getauscht wird.

Wenn ich das richtig verstanden habe, ist die Liste dann zwar weniger durchgemischt aber die Verschiebungen sind doch dennoch zu groß, oder nicht? Die einzelnen Strings sollen ja quasi in ihrem jeweiligen Gebiet bleiben und sich nur um wenige Plätze verschieben.

Zitat von jaenicke:

Inwiefern nicht? Eigentlich geht das doch problemlos, dass du angibst in welchem Bereich die zu erzeugende Zahl liegen soll.

Mist, da hast du mich erwischt. Ich war mir sicher das es mit Random nicht geht. Auf deinen Hinweis hin bin ich auf die Funktion RandomRange gestoßen. Damit lässt sich das Problem natürlich beheben.

Vielen Dank für die Hilfe

LG
Christian

[jaenicke]

Zitat von codipodi:

Ich war mir sicher das es mit Random nicht geht. Auf deinen Hinweis hin bin ich auf die Funktion RandomRange gestoßen. Damit lässt sich das Problem natürlich beheben.

RandomRange ruft intern auch nur Random auf.

Ein Beispiel:
Du willst einen Wert zwischen 110 und 120.
Heißt, 110 plus einen Wert zwischen 0 und 10.
Also: 110 + Random(10)

(RandomRange ist natürlich vollkommen ok, ich wollte nur mal auf die Berechnung hinweisen. )