TMemoryStream mit Zufallszahlen füllen

[bepe]

Also wenn schon, dann so:

Delphi-Quellcode:

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

Wobei ich mir nicht sicher bin ob das nicht, dank Win Cache, zu dem Ergebnis von dem führt:

Delphi-Quellcode:

        i:=255;
        Fillchar(Beispielstream.Memory^,Beispielstream.Size, I);
        Beispielstream.SaveToFile(Datei);