Roulette

[galoru]

Servus Leute,

ich programmiere derzeit das Roulette und möchte nun eine zufällige Zahl würfeln lassen. Der Zahlenbereich ist z.B 1,3,9,12,17
Wie kann ich eine Zahl dieses Bereiches erzeugen ?

[Bummi]

Was meinst Du mit Bereich, nur die Zahlen (1,3,9,12,17) sind ein gültiges Ergebnis?

[galoru]

Ich möchte eine generierte Zahl zwischen den Zahlen 1,3,9,12,17 haben. Also nur eine dieser 5 Zahlen.

[Bummi]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
const
   C_NUM: Array[0..4] of integer =(1,3,9,12,17);
begin
   Caption := IntToStr(C_NUM[Random(5)]);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Randomize;
end;

[galoru]

Vielen Dank, hilft mir wirklich sehr!

[galoru]

Ich hätte noch eine Frage; wenn ich z.B auf Rot setze und die zufällige Zahl liegt auf Rot, dann gewinne ich ja. Diesen Gewinn gebe ich in einem Editfenster aus. Wenn ich nun nochmal würfle mit einem anderen Einsatz und nochmal gewinne, bleibt das Editfenster so wie es ist. Es ändert sich praktisch nichts am Gewinn obwohl ich ja gewonnen habe. Wie kann ich nun nach jedem Würfeln alles "resetten" um mit einem neuen Einsatz zu spielen?