randomize result ???

[sakura]

Weil sich in der Zwischenzeit die Uhrzeit "grundlegend" ändert. Randomize wird über den internen Zeitgeber initialisiert. Wenn Du jedoch Randomize 100 Mal direkt nacheinander aufrufst und je eine Zufallszahl aus dem gleichen Bereich holst, dann ist der Zufall weg.

Delphi-Quellcode:

// ein form mit memo und button
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 99 do
  begin
    Randomize;
    Memo1.Line.Add(IntToStr(Random(100)));
  end;
end;