TMemoryStream mit Zufallszahlen füllen

[Mavarik]

Na dann eher so...

Delphi-Quellcode:

var i : byte;
    Beispielstream : TMemoryStream;
begin
  Beispielstream:=TMemoryStream.Create;
  try
    Beispielstream.LoadFromFile(Datei);

    //Randomize; Sollte nur einmal im Programm aufgerufen werden!

    for i:=0 to 255 do
      begin
        Fillchar(Beispielstream.Memory^,I,Beispielstream.Size);
        Beispielstream.SaveToFile(Datei);
      end; 
        
  finally
    Beispielstream.Free;
  end;
end;