Hallo,
ich würde gerne meine Objekte mit einem Zeitstempel versehen. Bisher habe ich dafür eine Variable vom Typ TSystemTime verwendet. Nun wollte ich das aber auf TDateTime refactorisieren und da liegt mein Problem. Sobald ich SystemTime über SystemTimeToDateTime in DateTime umwandel, wird DateTime extrem quantisiert. D.h. die Intervalle liegen bei etwa 3-5 Minuten. Das gleiche Phänomen habe ich, wenn ich DateTime einfach durch die Funktion Now erzeuge.

Kennt jemand dieses seltsame Verhalten oder kann mir einen Tipp geben, woran dies liegt?

Gruß
Zudo

Ich hatte damals das Problem, das aus einer DLL die TDateTime Werte aus Now u.ä. nicht stimmten. Komplett falsche Werte, ohne dass ich was gefunden habe. Hab mir dann was eigenes gebastelt, das fast genauso war wie TDateTime aber funktionierte. Muss ich aber erst suchen. Irgendwo vergraben

Andere sagen ja, dass TDateTime auf eine halbe Millisekunde genau arbeitet.

Ich habe mir bisher dafür auch was selbst gestrickt, aber ich würde nun auch gerne das vorhandene benutzen. Meine Vermutung ist, dass ich da nur irgendwas falsch mache oder nicht beachte.

Edit: Ich habe mal einen genaueren Blick in die Funktionen geworfen. In SystemTimeToDate berechnet er zwei Werte, einen für JahrMonatTag, der andere HourMinuteSecondMilliseconds. Der zweite Wert ist soweit ich das nachvollziehen kann, exakt. Aber sobald für den Resultwert beide Werte addiert werden, ist definitiv die Genauigkeit verschwunden. Das finde ich seltsam, weil der TDateTime Datentyp ja eigentlich ein Double-Wert ist. Kann es sein, dass der aus irgendeinem Grund da mit Single rechnet?

Hier mal meine Unit: www.delphi-forum.de/....php?p=611343#611343

Danke, dass du dir die Mühe gemacht hast, mir deine Unit zu posten. Aber wie gesagt, ich würde da lieber gerne das bestehende benutzen. Zumal ich ja bisher auch eine selbstgestrickte Unit für meinen Zeitstempel benutzt hatte.

Was mir allerdings nun aufgefallen ist, irgendwie rechnet der in meinem großen Projekt nur mit Single Genauigkeit. In einem kleinen Test Projekt war dies nicht der Fall. Nun ist nur noch die Frage, warum Delphi das tut.

Hast du mal ausprobiert, die selbe Rechnung, die in dem Testprojekt funktioniert, in deinem großem Projekt auszuprobieren?

Mal am besten jeweils den Code (den du WIRKLICH verwendet hast) posten. Vl ist irgendwo eine Konvertierung drin, die nicht sein sollte...

Hier der Code, den ich in meinem großen Projekt und in meinem Testprojekt verwendet habe:



In dem Testprojekt gibt er mir aus:
40372,7436715961 (Double)
40372,7421875 (Single)

In dem großen Projekt:
40372,7406860337 (Double)
40372,7406860337 (Single)

Ich verwende Turbo Delphi 2006. Habe auch mal probiert, alle Units, die ich in dem großen Projekt verwende, in dem Testprojekt einzubinden. Aber ohne Erfolg, ich erhalte exakt das gleiche Ergebnis. In den Projekteinstellungen scheint auch alles gleich zu sein. Irgendwie kann ich mir nicht erklären, was da schief läuft.

Der Fehler ist gefunden!!

Es lag letztendlich an DirectX. Wenn man nicht das Flag D3DCREATE_FPU_PRESERVE angibt, dann überschreibt DirectX die Precision für sämtliche Gleitkommaoperationen in dem aktuellen Thread.