Randomize mehrmals starten

[Neotracer64]

Vielleicht ist es ja für einige interessant.
Hab das gerade mit OllyDbg rausgefunden.
Zumindest ist das so bei Delphi 7 Enterprise. (Build 4.453)

Delphi-Quellcode:

function PredictNextRandom(RSeed: PInteger; Range: Integer): Integer;
begin
  result := RSeed^ * $8088405 + 1;
  asm
    PUSH EDX
    MOV EAX, Range
    MUL result
    MOV result, EDX
    POP EDX
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  ShowMessage(IntToStr(PredictNextRandom(@RandSeed,10)) + ' == '+ IntToStr(Random(10)));
  ShowMessage(IntToStr(PredictNextRandom(@RandSeed,10)) + ' == '+ IntToStr(Random(10)));
  ShowMessage(IntToStr(PredictNextRandom(@RandSeed,10)) + ' == '+ IntToStr(Random(10)));
  ShowMessage(IntToStr(PredictNextRandom(@RandSeed,10)) + ' == '+ IntToStr(Random(10)));
  ShowMessage(IntToStr(PredictNextRandom(@RandSeed,10)) + ' == '+ IntToStr(Random(10)));
  ShowMessage(IntToStr(PredictNextRandom(@RandSeed,10)) + ' == '+ IntToStr(Random(10)));
  ShowMessage(IntToStr(PredictNextRandom(@RandSeed,10)) + ' == '+ IntToStr(Random(10)));
end;

Zitat:

Das ist gut, weil man sonst (wenn Randomize nur einmal aufgerufen wird) unter bestimmten Voraussetzungen ohne große Probleme vorhersagen kann, welches die nächste "Zufallszahl" ist, wenn die ersten paar "Zufallszahlen" bekannt sind.

PredictNextRandom, sagt die nächste Pseudozufallszahl IMMER voraus, egal wie häufig Randomize aufgerufen wurde.
Also im Prinzip egal, bzw. eher überflüssig Randomize häufiger aufzurufen.