Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.157 Beiträge
 
Delphi 12 Athens
 
#7

Re: Skatblatt darstellen durch Random?

  Alt 10. Nov 2009, 17:32
Zitat von Lotus:
Es geht darum, das, falls ich Zahlen von 1-8 Zulasse, jede Zahl nur maximal 4x kommt. Demnach kommt 4x die 2, dann darf kein randomwert mehr die 2 annehmen.. an sich könnte ich eine zählvariable mitlaufen lassen, und jedes mal sagen, wenn i>4 dann neu wuerfeln... allerdings is das einfach mal nich ressourcenfreundlich
Wenn du jede Zahl 4 Mal zuläßt, dann kann es immernoch passieren, daß eine Farbe mehrfach vorkommt.

Nimm dir einfach ein Boolean-Array mit 32 Feldern (je Karte inkl. Farbe ein Feld) und wenn eine Karte gezogen wurde, dann wird diese darin markiert.

Wenn du nun eine neue Karte ziehen willst, dann wähle per Zufall irgendeine der 32 Karten aus,
schaue in dem Array, ob sie noch frei ist
und wenn nicht, dann wird so lange neu gezogen, bis eine freie Karte getroffen wurde.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat