Zufallsgenerator

[Neutral General]

Wie schon mehrmals mehr oder weniger direkt gesagt wurde: Du kannst "RandSeed" eine Zahl zuweisen. Das ist einfach nur eine globale Variable:

Delphi-Quellcode:

RandSeed := 123;
Caption := IntToStr(random(100)); // 85

Über GetTickCount bzw. QueryPerformanceTimer bekommt man die "Uhrzeit" (nicht wirklich die Uhrzeit aber sowas in der Art) als Integer.
Dieser Wert wird als Startwert genommen und nachdem ein paar Mathematische Operationen mit gewissen Konstanten drauf angewendet wurden hast du deine 1. Zufallszahl.

Falls dus noch nicht gelesen hast (da sind auch Algorithmen verlinkt mit denen solche Zufallszahlen generiert werden können):
https://de.wikipedia.org/wiki/Zufall...lengeneratoren