Wer behauptet denn so etwas? Man kann ihn ständig bzw. nach jedem ersten random neu initialisieren. Dann hätte man wohl eine echte Zufallszahlenfolge.
Jajn. Eine kleine Erweiterung des oberen Beispiels:
Delphi-Quellcode:
var
x, y: Integer;
begin
with Canvas do
for x := 0 to ClientWidth - 1 do
for y := 0 to ClientHeight - 1 do
begin
Randomize;
Pixels[Random(ClientWidth), Random(ClientHeight)] := clBlack;
end;
end;
Die Verteilung ist immer noch fast gleichmäßig. Nur sind hier doch tatsächlich Rechtecke zu erkennen
