Hallo,
habe Win 8.1, XE7 und nutze die TStopWatch aus System.Diagnostics.
Folgendes Beispiel:
Nehmt eine neue Anwendung und einen Button drauf.
Im Click Event dann folgenden Code:
Delphi-Quellcode:
var
aMessungGes : TStopWatch;
begin
aMessungGes.Create;
aMessungGes.Start;
//hier kann was stehen, muss aber nicht
aMessungGes.Stop;
ShowMessage('Zeitmessung Gesamt (s): ' +
IntToStr(Round(aMessungGes.ElapsedMilliseconds/1000)));
Ich bekomme beim Starten und Button Click immer eine negative Zahl angezeigt in meiner ShowMessage. Ich habe da mal bisschen rein debuggt und festgestellt, dass die interne Variable "FElapsed" der TStopWatch beim .Create und .Start nicht auf 0 gesetzt wird. Da steht immer eine Zahl > 0 drinne. Wenn dann das ".Stop" kommt, ist die interne Variable FElapsed negativ.
Könnt ihr das nachstellen?
Viele Grüße