Datetime undefiniert !!!

[kiar]

folgende funktion

Delphi-Quellcode:

 uses
 Classes, ComCtrls, SysUtils;


function fkt_CalcDivTime(s: string): double;
var
   Mytime :TDAtetime;
   stunden,
   minuten,
   szEnde,
   szStart:String;

begin
   mytime:=now;  //<- hier versuche ich Mytime zu seten
   sZende:=fkt_makecloseString(s);  // hier wird aus einem längeren string einteil ausgewählt
   sZende:=stringreplace(szende,':','',[rfreplaceall]);
   stunden:=copy(szende ,1,2);
   minuten:=copy(szende ,3,2);
   mytime:=EncodeTime((strtoint(stunden)),(strtoint(minuten)),0,0);
   result:= 'ist egal'
end;

ich versuche hier mytime zu ermitteln, um damit weiterzuarbeiten, diese funktion ist bestandteil einer .pas, welche oben aufgeführte dateien hat.

wenn ich nun zu dieser funktion springe, liegt mytime, auch nach now irgendwo im computer und zeigt astronomische werte an.

mache ich die selbe sache auf einer unit, der eine form zugewiesen ist, klappt es.

alle deklarationen sind in den oben aufgeführen dateien enthalten. wo liegt mein fehler :wall:

raik

[Sharky]

Hai kiar,

ist dort eventuell das Delphi TDateTime durch einen eigenen Typ ersetzt worden?

[shmia]

Du kannst den Unitnamen einem Bezeichner vorneanstellen, wenn du ganz sicher
sein möchtest:

Delphi-Quellcode:

var 
   Mytime :System.TDatetime;  // der "richtige" TDateTime Datentyp
   stunden, 
   minuten, 
   szEnde, 
   szStart:String; 
begin 
   mytime:=SysUtils.Now;  // die "richtige" Now-Funktion

[kiar]

@ sharky -> wie meist du das?
@ shmia -> das bringt auch nichts!

[sakura]

Mal eine Frage. Wo stößt Du auf das Problem mit den "astronomischen" Werten - wo überprüfst Du die. Kann es sein, daß Du MyTime woanders nochmals definiert hast?

...:cat:...

[kiar]

hallo sakura,

iich stoße aus die astronomischen werte, schon in der ersten zeile. deshalb habe ich auch

Delphi-Quellcode:

MyTime:=SysUtils.now;

gemacht, um einen definierten wert zu haben.

aber pustekuchen, er ist in den weiten des rechners.

mytime ist nirgends definiert.

raik

[Luckie]

Geh mal in Einzelschritten durch und kuck, was für einen Wert mytime nach der Zuweisung von now hat.

[kiar]

luckie den astronomischen wert. alles schon passiert.

sonst hätte ich nicht gewußt, das er astronomisch ist.

raik

[sakura]

Nenne doch mal den Wert ;)

...:cat:...

[kiar]

2.0904263321e-317