Thema: Delphi Zufals-Boolean erzeugen

Einzelnen Beitrag anzeigen

Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#1

Zufals-Boolean erzeugen

  Alt 25. Sep 2005, 17:07
Hallo,

gibt es eine einfache Möglichkeit, in Delphi einen Zufalls-Boolean zu erzeugen?
Ich wüsste da nur
Boolean := not StrToBool(IntToStr(Random(2))); was aber nicht so gut wäre, u.a. wegen der "Ungenauigkeit" des Zufallsgenerators bei kleinen Zahlen.

Vorstellen könnte ich mir auch etwas in der Richtung
Delphi-Quellcode:
if (Random(1001) > 500) then
  Boolean := true
else
  Boolean := false;
aber ich suche nach einer "vorgefertigten" Lösung.

Danke,
ManuMF
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  Mit Zitat antworten Zitat