Einzelnen Beitrag anzeigen

Lefko

Registriert seit: 31. Jul 2003
359 Beiträge
 
Delphi 6 Enterprise
 
#1

IncMinute tuts nich mehr...

  Alt 4. Dez 2003, 19:25
Hallo Freunde ,

schaut euch folgenden Code an und sagt mir, warum der befehl IncMinute nichts macht!!

hier:

Delphi-Quellcode:
procedure TForm1.FormDblClick(Sender: TObject);
var Jetzt : TTime;
    stunde, minute, dummy : word;
begin
   Jetzt := now;
   DecodeTime(Jetzt, stunde, minute, dummy, dummy);
   if minute mod 5 <> 0
     then
      repeat
       IncMinute(Jetzt);
       DecodeTime(Jetzt, stunde, minute, dummy, dummy);
      until minute mod 5 = 0;
end;
So läuft das zwar, aber es ist eine Endlosschleife, nur weiss ich nicht, warum....

der wert von "minute" bleibt immer gleich!?

MfG Lefko.
Johannes
-=[Nennst du meinen Namen, bin ich schon nicht mehr da]=-
  Mit Zitat antworten Zitat