Systemzeit abfragen in milisekunden?

[FabianIBerlin]

Hi, ich muss unbedingt die Systemzeit in milisekunden abfragen und in einer Variablen speichern, kennt jemand n bbefehl dafür?
Thx 4 help

[Nikolas]

Ertsmal herzlich willkommen in der DP

Die Borländer waren da sehr Creativ und haben die passende Variable 'now' getauft. Also:

Delphi-Quellcode:

date: tDate;
int: int64;
date:= now; 

// in millisekunden seit Systemstart: 
int:=Gettickcount;

Fertig.

[FabianIBerlin]

also irgendwie ist es nicht das was ich suche ich machs mal genauer:
Ich muss die dauer eines Sortierverfahren in milisekunden messen dazu habe ich mir gedacht das ich das so machen kann:

Code:

    
start :tDatetime;
Sotierzeit : integer;
Start := now;
Sortierzeit := now - start;

das sind aber aber nicht kompatible typen :/

[Nikolas]

Dann schau mal nach millisecondsbetween. [Unit Dateutils]

[scp]

Delphi-Quellcode:

start :Cardinal;
Sotierzeit : Cardinal;
Start := GetTickCount;
Sortierzeit := GetTickCount - start;

[Binärbaum]

Zitat von FabianIBerlin:

also irgendwie ist es nicht das was ich suche ich machs mal genauer:
Ich muss die dauer eines Sortierverfahren in milisekunden messen dazu habe ich mir gedacht das ich das so machen kann:

Code:

    
start :tDatetime;
Sotierzeit : integer;
Start := now;
Sortierzeit := now - start;

das sind aber aber nicht kompatible typen :/

Eben. Aber das kann man beheben, indem man einfach die Typen ändert.

Delphi-Quellcode:

var start, Sortierzeit: TDateTime;
begin
  Start := now;
  //hier wird sortiert
  Sortierzeit := now - start;
end;

MfG
Binärbaum