Chance-Funktion

[Flips]

Hi.

Ich benötige eine Funktion, welcher ich als Parameter eine Chance/Wahrscheinlichkeit mitgebe. Diese Funktion soll mir dann mit gegebener Wahrscheinlichkeit true zurückgeben.

Delphi-Quellcode:

function GetChance(Chance: Single):boolean;
var number : Integer;
begin
if chance = 0 then
  result := false
else
  begin
      number := random(100)+1;
      result := number <= trunc(Chance*100);
  end;
end;

Natürlich kann die Wahrscheinlichkeit hier nur zwischen 0.00 und 1.00 liegen.
Ist der Code in diesem Fall richtig? Oder kennt evtl. jemand eine allgemeinere Funktion, die evtl. auf unbegrenzte Genauigkeit ausgelegt ist?

Danke!