Zitat von
walli18:
Ich brauche dringend eure Hilfe!
Für ein Quiz was ich erstellt habe möchte ich eine zufallszahl bekommen wenn ich auf einen button klicke! Diese sollte von 1-40 gehen! Beim erneuten klicken auf den button sollte auch eine zufallszahl von 1-40 kommen, außer der, die ich vorher schon hatte! Das ganze will ich 15 mal ausführen, so dass jede frage nur einmal kommt! Jeder zahl von 1-40 ist eine Frage zugeordnet!
Doch wie mache ich das???
Ich bin ein echter anfänger und bräuchte deswegen ne einfache lösung oder nen kompletten Quelltext!
Für die antworten bedanke ich mich schonmal!!
Alternativ zu Marc.'s Vorschlag kannst du auch 'ne StringList nehmen. Diese auffüllen -> Zufällige Indizes generieren -> Den "gezogenen" Eintrag entfernen
Wie beim Lotto halt...
Delphi-Quellcode:
Procedure Sproideldoing;
var
Pottich: TStringList;
i, z: integer;
begin
Pottich := TStringlist.Create;
try
for i := 1 to 40 do
Pottich.Add(IntToStr(i));
for i := 1 to 15 do
begin
z := random(Pottich.Count);
ShowMessage(IntToStr(Pottich[z]));
Pottich.Delete(z);
end;
finally
Pottich.Free;
end;
end;