x steht für das x bei 1
Es muss vorher der "Zufallsgenerator" gestartet werden!
Am besten in DeinForm.create noch
randomize;
reinschreiben!
So sieht die function aus:
Delphi-Quellcode:
function(x:integer): boolean;
begin
if random(x)+1 = 1 then result := true;
end;
EDIT:
zu spät
