Besseres Random() - eure Vorschläge

[DieDolly]

Ist tatsächlich nur das hier

Delphi-Quellcode:

procedure TForm1.RandomClick(Sender: TObject);
var
 x, y: Integer;
 bmp: TBitmap;
begin
 bmp := TBitmap.Create;
 try
  // 4 MB files
  bmp.Width := 1024;
  bmp.Height := 1024;

  for x := 0 to bmp.Width - 1 do
   begin
    for y := 0 to bmp.Height - 1 do
     begin
      bmp.Canvas.Pixels[x, y] := RandomLong; // Aufrufen was man braucht ..
     end;
   end;
 finally
  bmp.SaveToFile('Random-' + TButton(Sender).Caption + '.bmp');
  bmp.Free;
 end;
end;