TMemoryStream mit Zufallszahlen füllen

[p80286]

Wie wäre es so:

Delphi-Quellcode:

var i : Integer;
    Beispielstream : TMemoryStream;
...
begin
  Beispielstream:=TMemoryStream.Create;
  Beispielstream.SetSize(DateiGroesseInBytes);

  Randomize;
  for i:=0 to Beispielstream.Size-1 do Beispielstream.Write(Random(256), 1);

  Beispielstream.SaveToFile(Datei);
  Beispielstream.Free;
end;

Gruß
K-H