Random: Delphi vs. Lazarus?

[Furtbichler]

Zitat von JamesTKirk:

Zitat von himitsu:

Früher ging Randomize mal auf GetTickCount, welches meistens in einem Intervall von 16 Millisekunden hochzählte. (glaub ich)

GetTickCount zählt zumindest auf NT Systemen in Millisekunden hoch, da es auf dem genaueren internen Counter des Kernels aufsetzt, siehe auch hier, Zeile 445.

Hab ich kein NT-System? Na, zumindest habe ich kein ReactOS.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  c0,c,c1 : Cardinal;

begin
  c := GetTickCount;
  c0 := c;
  repeat
    c1 := GetTickCount;
    if c<>c1 then begin
      memo1.lines.add(intToStr(c-c0));
      c := c1;
    End;
  until c1-c0>100;
end;

Zitat von MemoBox1:

0
15
31
47
62
78
93

16ms war schon immer so.