Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by alzaimar,
30. Apr 2010
Hi gammatester,
wenn Du nicht wärst.... :thumb:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by alzaimar,
29. Apr 2010
Hier eine Klasse, die zufällig Zahlen aus einem Zahlenbereich zieht, bis keine mehr übrig sind. Jede Zahl wird nur 1x gezogen. Die Klasse erstellt eine Liste der Zahlen, mischt sie nach Fisher-Yates und liefert dann eine nach dem anderen zurück.
Verwendung (Lotto, 6 aus 49 + Zusatzzahl);
With TUniqueRandomSequenceGenerator.Create (1,49) do begin
Write('Und hier die Lottozahlen: ');
For...