Zufallsboolean

[Chemiker]

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.