Zufallszahlen erstellen

[Popov]

Hier ein Beispiel wie gut oder schlecht Random Zufallswerte produziert. Theoretisch müsste alles schwarz sein, ist aber knapp dran:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, i, z: Integer;
begin
  z := Width * Height;
  for i := 0 to z do
  begin
    x := Random(Width);
    y := Random(Height);
    Canvas.Pixels[x, y] := clBlack;
  end;
end;