Zufallsboolean
Folgende Funktion liefert Zufallsboolean.
Es wurde mit
BDS 2006 entwickelt.
Delphi-Quellcode:
{*******************************************************************************
Unit: uZufallsZahlen
ltz.Ändr.: 13.07.2008
--------------------------------------------------------------------------------
1.) Name: function ZufallsBoolean(): boolean;
ltz.Ändr.: 13.07.2008
Beschreibung: Gibt zufällig TRUE oder FALSE als Boolean zurück
Um den Zufallszahlengenerator zu initialisieren, rufen Sie
Randomize einmal auf oder weisen der Variable RandSeed vor
dem Aufruf von ZufallsBoolean einen Wert zu.
--------------------------------------------------------------------------------
2.) Name: function StrZufallsBoolean(): string;
ltz.Ändr.: 13.07.2008
Beschreibung: Gibt zufällig 'TRUE' oder 'FALSE' als String zurück
Um den Zufallszahlengenerator zu initialisieren, rufen Sie
Randomize einmal auf oder weisen der Variable RandSeed vor
dem Aufruf von ZufallsBoolean einen Wert zu.
*******************************************************************************}
unit uZufallsZahlen;
interface
uses SysUtils, Math;
function ZufallsBoolean(): boolean;
function strZufallsBoolean():
String;
implementation
function ZufallsBoolean(): boolean;
begin
Result:= Random(2)=1;
// 1=1 >> TRUE / 0=1 >> FALSE
end;
function StrZufallsBoolean():
String;
begin
Result:= BoolToStr(ZufallsBoolean(),true);
end;
end.
Vielleicht kannst ja jemand brauchen.
Bis bald Chemiker
Edit: function ZufallsBoolean geändert und Dax-Vorschlag übernommen.