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.