Zitat von
blink182:
hab auch mal eben noch was getestet, ist wahrscheinlich nicht so gut wie der oben gepostete code, da es nach 40 klicks eine endlosschleife gibt, aber das kannst du ja noch beheben
die Endlosschleife wär ja noch nichtmal das Schlimmste
for i:=0 to length(zufall) do
hier eine
Exception (wenn du mal die Bereichsprüfung anschaltes)
a:=random(39);
die 40 (Index 39) gibt's nicht, da 0..38
zufall: array of integer;
OK, kein Fehler, aber der Index is die Zahl-1, da braucht man nicht unbedingt ein Array of Integer ... Array of Boolean hätt's auch getan,
denn die zugehörige Zahl kann man sich ja aus dem Index errechnen.
PS: bei Array[1..40] of Boolean wär der Index direkt die Zahl
If MeinZahlenArray[gezogeneZahl] Then {zahl wurde gezogen}
oder gleich ein Set of 1..40
Delphi-Quellcode:
Var gezogeneZahlen:
Set of 1..40;
Zufallszahl: Integer;
gezogeneZahlen := [];
// init
If gezogeneZahlen <> [1..40]
Then Begin
Repeat
Zufallszahl := Random(40) + 1;
Until not (Zufallszahl
in gezogeneZahlen);
Include(gezogeneZahlen, Zufallszahl);
End Else Raise Exception.Create('
Es gibt keine Zahlen mehr.');
MessageBox(0, PChar(Format('
Die Zahl %d wurde soeben gezogen.',
[Zufallszahl])), '
test', MB_OK);
Delphi-Quellcode:
Var gezogeneZahlen: Set of 1..40;
Zufallszahl, i: Integer;
gezogeneZahlen := [];
For i := 1 to 15 do Begin
Repeat
Zufallszahl := Random(40) + 1;
Until not (Zufallszahl in gezogeneZahlen);
Include(gezogeneZahlen, Zufallszahl);
MessageBox(0, PChar(Format('Die %d. Zahl ist eine %d.',
[i, Zufallszahl])), 'test', MB_OK);
End;