Zufallszahl ziehen ohne wiederholung

[Meflin]

1. Zuerst erstellst du ein array der Länge des Zahlenbereiches, aus dem die Zahlen kommen sollen

Delphi-Quellcode:

MyArray: array of integer;
...
SetLength(MyArray, 40);

2. Dann füllst du das array mit den Zahlen

Delphi-Quellcode:

for i := 0 to Length(MyArray) - 1 do
  MyArray[i] := i + 1;

3. Dann lässt du dir eine Zufallszahl generieren, die im Bereich der Länge des arrays liegt
rnd = random(Length(MyArray) - 1) 4. Die Zahl an MyArray[rnd] fügst du zum Ergebnis hinzu
5. Du kopierst das letzte Element deines arrays an die Stelle MyArray[rnd] und verkürzt das array um 1 (entspricht dem entfernen der gezogenen Zahl aus dem Zufallsraum)

Delphi-Quellcode:

MyArray[rnd] := MyArray[Length(MyArray) - 1];
SetLength(MyArray, Length(MyArray) - 1);

6. Widerhole 14 mal ab Punkt 3

hth.