Also, folgende Funktion gibt dir mit der übergebenen Wahrscheinlichket (in Prozent) TRUE zurück:
Delphi-Quellcode:
function (x: Byte): Boolean;
begin
Result := FALSE;
if (x < 0) OR (x > 100) then exit;
// Damit mit der übergebeben Wahrscheinlichkeit FALSE zurückgegeben wird,
// folgendes auskomentieren:
// x := 100 - x;
Result := (Random < (x / 100));
end;
Nicht vergessen: randomize vorher aufrufen ...