Zitat von
ichbins:
Delphi-Quellcode:
if random(100)<10 then
spielfeld[i,j]:=zeitfutter
else
spielfeld[i,j]:=futter
Änder das lieber in
random(10) = 1 then
Die Wahrscheinlichkeit bleibt gleich, aber es müssen nicht so hohe Zufalszahlen erstellt werden...