marabu hat
hier einen Source gepostet, wie man einen Boolean-Wert zufällig wählen kann mit einer vorgegebenen Wahrscheinlichkeit
1:x:
Delphi-Quellcode:
function Odds(x: double): boolean;
begin
Result := (Random * (1 + x)) < 1;
end;
[edit=flomei]Smilies deaktiviert, verschoben... Mfg, flomei[/edit]