Einzelnen Beitrag anzeigen

Benutzerbild von bytecook
bytecook

Registriert seit: 6. Aug 2010
Ort: Dornbirn
148 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: Gettickcount ist unbekannt

  Alt 1. Nov 2017, 19:37
Delbor,

probier mal folgendes...
Delphi-Quellcode:
if i = PathList.Count - 1 then
begin
  CInsertTime := TThread.GetTickCount - startTime;
  if Assigned(FOnInsertedTime) then
    FOnInsertedTime(Self,CInsertTime);
end;
Dann sollte es ohne Windows Unit funktionieren. So ist es plattformunabhängig. Wurde glaube ich mit einer XE Version mal verschoben.

Delphi-Quellcode:
class function TThread.GetTickCount: Cardinal;
{$IF Defined(MSWINDOWS)}
begin
  Result := Winapi.Windows.GetTickCount;
end;
{$ELSEIF Defined(MACOS)}
begin
  Result := AbsoluteToNanoseconds(mach_absolute_time) div 1000000;
end;
{$ELSEIF Defined(POSIX)}
var
  res: timespec;
begin
  clock_gettime(CLOCK_MONOTONIC, @res);
  Result := (Int64(1000000000) * res.tv_sec + res.tv_nsec) div 1000000;
end;
{$ELSE OTHERPLATFORM}
  {$MESSAGE Fatal 'Method not implemented for Platform'}
{$ENDIF OTHERPLATFORM}
Peter
Was mache ich, wenn ein Bär meine Frau angreift?
Nichts. Er hat sie angegriffen, soll er doch selber sehen, wie er sich verteidigt.

Geändert von bytecook ( 1. Nov 2017 um 19:44 Uhr)
  Mit Zitat antworten Zitat