Verbesserungsvorschlag:
Delphi-Quellcode:
function ZufallsBoolean: Boolean;
begin
Result := Random(2) = 1;
end;
function ZufallsBoolean(trueProzent: Double): Boolean;
begin
Result := Random(100) < trueProzent;
end;
Es ist nett, dass du das zur Verfügung stellst, aber am Ende hat es dann doch nicht den gewissen Mehrwert.
