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.