Zufallszahl ermiteln

[sakura]

Zitat von Sharky:

Ein wichtiger Aspekt bei der Initialisierung durch Randomize ist die Systemzeit.

Nicht unbedingt, in Delphi 7 wird der Performance-Counter genutzt, und der ist schnell genug

Delphi-Quellcode:

procedure       Randomize;
{$IFDEF LINUX}
begin
  RandSeed := _time(nil);
end;
{$ENDIF}
{$IFDEF MSWINDOWS}
var
  Counter: Int64;
begin
  if QueryPerformanceCounter(Counter) then
    RandSeed := Counter
  else
    RandSeed := GetTickCount;
end;
{$ENDIF}

......