Was könnte die Funktion Now: TDateTime; blockieren?

[Uwe Raabe]

Zitat von himitsu:

Zitat von Uwe Raabe:

Ich tippe da auch auf eine zusätzliche Deklaration von Now im aktuellen Scope. Vielleicht hilft eine Suche über alle Dateien des Projekts?

Wozu?

Strg+Linksklick auf dieses "Now" und man sieht wohin es geht,
oder einfach mal den Mauszeiger 'nen Sekündchen drüberhalten und in den Hint gucken.

Stimmt! Das gab es ja unter Delphi 7 auch schon. Bin da halt etwas aus der Übung...

[himitsu]

Da wir nun nocheinen mit diesem Time-Problem haben:
http://www.delphipraxis.net/154370-s...usgegeben.html


Zeigt dieses Progrämmchen denn auch die falsche Zeit an?
Und was ist mit der Systemuhr in der Windows-Startleiste?

[BenjaminH]

Zitat von himitsu:

Zeigt dieses Progrämmchen denn auch die falsche Zeit an?
Und was ist mit der Systemuhr in der Windows-Startleiste?

Die von dir kompilierte exe zeigt bei mir alles richtig an.
Auch selbst kompiliert(D7) funktionierts.

[himitsu]

Zitat von BenjaminH:

Auch selbst kompiliert(D7) funktionierts.

Hmmm, ein Gedanke wäre noch gewesen, daß es ein Problem im XP-Subsystem (k.A. wie man jetzt wieder den Kompatibilitätsmodus nennt) von Win7 gibt.

In soeinem Fall hätte man mal versuchen können ein anderes XPManifest einzubinden (nicht das, dem Delphi 7, Beiliegende), in welchem man sein Programm als kompatibel zu Win7 ausweist.
Aber wenn die TestExe läuft, dann wird es wohl doch nicht daran liegen.

[p80286]

Zitat von Uwe Raabe:

Zitat von himitsu:

Zitat von Uwe Raabe:

Ich tippe da auch auf eine zusätzliche Deklaration von Now im aktuellen Scope. Vielleicht hilft eine Suche über alle Dateien des Projekts?

Wozu?

Strg+Linksklick auf dieses "Now" und man sieht wohin es geht,
oder einfach mal den Mauszeiger 'nen Sekündchen drüberhalten und in den Hint gucken.

Stimmt! Das gab es ja unter Delphi 7 auch schon. Bin da halt etwas aus der Übung...

Stimmt nicht!
Mein D7 verhält sich da ganz still und ruhig.
Ist wohl, wie das meiste, eine Einstellungssache !?

Gruß
K-H

[Uwe Raabe]

Zitat von p80286:

Mein D7 verhält sich da ganz still und ruhig.
Ist wohl, wie das meiste, eine Einstellungssache !?

Hilft im Menü Tools - Editor-Optionen - Programmierhilfe mal die vier Häkchen zu setzen?

[himitsu]

Sind bei Delphi 7 Personal überhaupt die entsprechenden Quellcodes vorhanden?
(ohne Quellcode kein Sprungziel)

[arc]

Ich melde mich wieder zurück, Now habe ich nirgends deklariert, wieso sollte man das tun.
Der Fehler scheint in einer der Umwandlungsfunktionen zu liegen. Leider kann ich nicht weiter debuggen, da ich keine SysUtils.pas habe.

Folgender Code erzeugt folgende Resultate:

Code:

function API_GetCurrentDate:string;
var SystemTime: TSystemTime;
begin
  GetLocalTime(SystemTime);
  result:=DateTimeToStr(SystemTimeToDateTime(SystemTime))+' vs '+Format('%.2d.%.2d.%d %.2d:%.2d:%.2d',[SystemTime.wDay,SystemTime.wMonth,SystemTime.wYear,SystemTime.wHour,SystemTime.wMinute,SystemTime.wSecond]);
end;

11.09.2010 13:56:24 vs 11.09.2010 13:59:10
11.09.2010 13:56:24 vs 11.09.2010 13:59:31
11.09.2010 13:56:24 vs 11.09.2010 14:00:13
11.09.2010 13:56:24 vs 11.09.2010 14:00:18
11.09.2010 13:56:24 vs 11.09.2010 14:00:27
11.09.2010 13:56:24 vs 11.09.2010 14:00:30

Ich bin ehrlich gesagt ratlos. Völlig unlogisch der Fehler.

[himitsu]

Delphi-Quellcode:

function API_GetCurrentDate: String;
var SystemTime: TSystemTime;
begin
  GetLocalTime(SystemTime);
  Result := Format('%s (%.10n) vs %.2d.%.2d.%d %.2d:%.2d:%.2d', [
    DateTimeToStr(SystemTimeToDateTime(SystemTime)),
    SystemTimeToDateTime(SystemTime), SystemTime.wDay,
    SystemTime.wMonth, SystemTime.wYear, SystemTime.wHour,
    SystemTime.wMinute, SystemTime.wSecond]);
end;

Was sagt denn diese Funktion?

Mal gucken ob in DateTimeToStr oder SystemTimeToDateTime das Problem liegt.
(auch wenn ich eher auf SystemTimeToDateTime tippe)

Obwohl Beide eigentlich nur "reine" mathematische Berechnungen ausführen und diese sollte unabhängig vom System (Windows) berechenbar sein.

[arc]

11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:18:41
11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:18:47
11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:18:55
11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:18:58
11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:19:00