Problem bei Quiz mit Zufallszahlen

[Timx]

abc

[DeddyH]

Hallo und Willkommen in der DP ,

such doch mal nach Wer wird Millionär, da ist bestimmt der eine oder andere gute Ansatz dabei. Eine Zufallszahl bekommst Du auf jeden Fall mit Random, vorher solltest Du aber einmalig Randomize aufrufen.

Hth

[Timx]

Ich habe randomize schon mit drin. Ich habe nur das Problem das wenn ich auf den Weiter Button drücke jedes mal die selbe Frage im Label1 kommen kann.

[DeddyH]

Du könntest sämtliche Fragen samt Antworten in einer Liste ablegen. Jede Frage, die angezeigt wird, wird dann gleich aus dieser Liste gelöscht, so kann es keine Doppler geben.

[Timx]

Ja daran habe ich auch gedacht, allerdings hatten wir im Unterricht niemals Listen behandelt und ich weiß nicht genau wie das funktionieren soll bei dem Programm.

[DeddyH]

Überhaupt keine Listen? Dann scheidet diese Möglichkeit wohl aus.

[Timx]

Ne leider nicht.

[DeddyH]

Mit einem Array ginge das auch, allerdings kann die Ermittlung einer noch nicht gestellten Frage vergleichsweise lange dauern. Dazu musst Du Dir zusätzlich zur Frage-/Antworten-Kombination noch in einem Booleanfeld merken, ob die Frage bereits gestellt wurde. Per Zufallsgenerator in einer Schleife läufst Du dann solange durch das Array, bis Du auf eine noch nicht gestellte Frage triffst. Allerdings solltest Du unbedingt mitzählen, wie viele Fragen bereits gestellt wurden, sonst landest Du in einer Endlosschleife.

[Jumpy]

Wie siehts mit Arrays aus? Hattet ihr das schon?
Wenn ich mir deinen Code anschaue denk ich mal ja.
Mach halt ein dyn. Array in dem du dir die Nr. der bereits gestellten Fragen merkst.
Dann läßt du den Zufallsgenerator solange eine neue Nummer ausspucken, bis er eine hat, die noch nicht in dem Array steht und die nimmst du dann als nächstes (und schreibst natürlich diese Nummer nun auch in das array).

[haentschman]

Hallöle...

Zitat:

Ich habe randomize schon mit drin.

siehe...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
randomize; // das gehört hier nicht hin. Nur einmalig bei Programmstart. Im Form.Create hast du es korrekt.
button1.visible:=false;
label2.color:=clWhite;
label3.color:=clWhite;
label4.color:=clWhite;
label5.color:=clWhite;