TMemoryStream mit Zufallszahlen füllen

[DevidEspenschied]

Ich lese eine Datei in einen Memory Stream ein, möchte den Inhalt gerne mit Zufallszahlen beschreiben, und das wieder in die Datei zurück schreiben.

Dabei wird die MemoryStream Größe automatisch der Dateigröße mit SetSize angepasst.

Im Prinzip benötige ich eine Schleife, in der ich abhängig von der Streamgröße Zufallszahlen generiere. Bisher habe ich folgendes:

Delphi-Quellcode:

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

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

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