Hallo
ich habe folgenden Code gschrieben um die aktuelle Zeit in Milisekunden herauszubekommen. Nur der Code gibt immer 0 zurück:
Delphi-Quellcode:
function gettime:longword;
var now,hour,min,sec,msec:word;
parent:TDateTIme;
z:longword;
begin;
parent := now;
decodetime(parent,hour,min,sec,msec);
z := msec+(sec*1000)+(min*60*1000)+(hour*60*60*1000);
result := z;
end;
Warum ist das so?
Wo ist der Fehler?
Danke
TO