[Delphi/Kylix/CLX] GetTickCount alternatief?

[Kool]

Heb in mijn CLX projectje een soortgelijke functie als GetTickCount nodig. Aangezien dit een Windows API is kan ik die natuurlijk niet gebruiken. Iemand een alternatief?

[LordLarry]

clock_gettime
GetTimeOfDay
times
of bijvoorbeeld

Delphi:

function GetTickCount: longword;
begin
{$IFDEF LINUX}
  result := clock div (CLOCKS_PER_SEC div 1000);
{$ELSE}
  result := Windows.GetTickCount;
{$ENDIF}
end;

[Kool]

Merci
Dit is geen standaard functie toch?

[LordLarry]

Nee

[Verwijderd]

Ik heb ook deze functie nodig, maar ik kwam er achter dat die niet de juiste informatie weergaf.

Ik gebruik nu deze functie die wel de juiste informatie weergeeft:

Delphi:

var
  timerticspersec:integer=0;
  timermsecspertic:integer=0;

function GetTickCount: Longword;
var timeval: TTimes;
begin
  if timerticspersec = 0 then
  begin
    timerticspersec := CLK_TCK;
    if timerticspersec < 1000 then
      timermsecspertic := 1000 div timerticspersec;
  end;
  if timermsecspertic = 0 then
    Result := times(timeval) div (timerticspersec div 1000)
  else
    Result := timermsecspertic * times(timeval);
end;