Zufallszahl ziehen ohne wiederholung

[himitsu]

Zitat von globetrotter77:

Für den Anfang dürften die 255 bzw. 65535 (!) aber ausreichen!

65536, denn in Delphi-Strings kann man auch die #0 benutzen

Zitat von globetrotter77:

Das mit dem Benutzt-Kennzeichen funktioniert aber nicht ganz so gut, weil du dann zumindest theoretisch in eine Endlosschleife kommen könntest.

das kommt darau an, wie du die Abfrage gestaltest.

Delphi-Quellcode:

i := -1;
for i2 := 1 to 40
  if not meinArray[i2].istSchonBenutzt then begin 
    i := i2;
    break;
  end;
if i <> -1 then begin
  meinArray[i].isSchonBenutzt := true;
  ShowMessage('Zahl ', i, ' wurde gezogen.');
end else nichts_mehr_frei;

oder besser noch 'nen knuffiges While-Do-Schleifchen

Delphi-Quellcode:

i := 1;
while (i <= 40) and meinArray[i].istSchonBenutzt do Inc(i);
if i <= 40 then begin
  meinArray[i].isSchonBenutzt := true;
  ShowMessage('Zahl ', i, ' wurde gezogen und die Frage is "', meinArray[i].dieFrage, '".');
end else nichts_mehr_frei;