IncMinute tuts nich mehr...

**Lefko**

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.

IncMinute tuts nich mehr...

IncMinute tuts nich mehr...

Forumregeln