Datetime undefiniert !!!

[Luckie]

Ich meine direkt nach der Zuweisung von now, nicht am Ende der Funktion.

Wie sieht der denn aus?
Dir ist bekannt, dass der Datentyp TDateTime eigentlich ein Double ist? Und bewegt sich der astronomische Wert so um die 38097,633025706?

Du kannst ja mal das ausprobieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  mytime: TDateTime;
begin
  mytime := now;
  Showmessage(FloatToStr(mytime));
  Showmessage(DateTimeToStr(mytime));
end;

[kiar]

luckie

auf einem formular klappt es doch.

das ist eine unit, wo nur funktionen drin sind, welche ich benutze.

raik

[kiar]

sakura,

der oben genannte wert ist immer der gleiche,

wie kann ich rauskriegen, was das für ein wert ist ?

raik

[kiar]

habe jetzt fogendes gemacht:

Delphi-Quellcode:

var
  MyTime: TDateTime;

initialization
_data.Mytime := SysUtils.now;

end.

und siehe da, es wird richtig eingestellt. also liegt der fehler irgendo anderst. ich werde mich mal auf die suche begeben.

danke raik

[kiar]

nachvollziehbar ist das nicht:

der fehler muss in der XPMenu.pas liegen. wenn ich diese rausnehme ist das initialisierte datum auch noch bei dem aufruf korrekt.

was mich aber nachdenklich macht, ist die tatsache, wenn ich diese procedure auf einer for mache mit dem menu klappt es auch.

vorschläge, ratschläge und hinweise gerne willkommen.

@sakura hast du gedacht -> astronomischer wert 'kiar' -> das ist vielleicht ein double, lass ich ihn mir doch mal zeigen,

raik

[sakura]

Zitat von kiar:

der fehler muss in der XPMenu.pas liegen.

Wo kommt die denn her

......

[kiar]

ich rufe aus der formuldatei, wo die xpmenu.pas bestandteil ist die funktion auf.

wenn ich die herausnehme bleibt der wert erhalten,

habe jetzt noch nach mytime, Tdatetime in der XPmenu.pas gesucht, aber nichts gefunden.

raik

[sakura]

Zitat von kiar:

ich rufe aus der formuldatei, wo die xpmenu.pas bestandteil ist die funktion auf.

Ich meinte eigentlich: Was für eine Unit ist denn das. Mein Delphi hat die nicht.

......

[kiar]

http://www.shagrouni.com/english/software/xpmenu.html

[alcaeus]

@kiar: Versuch mal die Variable MyTime umzubenennen, funktioniert das auch nicht?