TMemoryStream mit Zufallszahlen füllen

[nahpets]

for i:=0 to (Beispielstream.Size-1 DIV 4) do Beispielstream.Write(Random(2147483647), 4);

Punkt vor Strichrechnung beachten!
for i:=0 to ((Beispielstream.Size-1) DIV 4) do Beispielstream.Write(Random(2147483647), 4);


Wie wäre es denn damit?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i                   : Integer;
    Beispielstream      : TMemoryStream;
    DateiGroesseInBytes : Integer;
    dw                  : DWord;
begin
  DateiGroesseInBytes := 100;
  Beispielstream:=TMemoryStream.Create;
  Beispielstream.SetSize(DateiGroesseInBytes);
  Randomize;
  for i := 0 to (Beispielstream.Size - 1) Div SizeOf(dw) do begin
    dw := Random(MaxInt);
    Beispielstream.Write(dw, SizeOf(dw));
  end;
  Beispielstream.SaveToFile('Datei');
  Beispielstream.Free;
end;