Zeitprogrammierung / Countdown

**sebastian_buege**

Hallo ich möcht mir ein Programm schreibe, das mir die Zeitspannne bis zu einem gewissen Zeitppunkt angibt.
allerdings soll das solange geschehen , bis die zeitspannne = 0 ist.

hier mein code :

zusammenfalten · markieren

Delphi-Quellcode:

			     dif:=0;

     Zeit:=TIme();

     dif:= StrToTime('16:30:00') - Zeit;;

     repeat

       sleep(2000);

       Zeit:=TIme();

       dif:= StrToTime('16:30:00') - Zeit;;

       MaskEdit1.Text:=TimeToStr(dif);

       until   TimeToStr(dif) = '00:00:00';

Leider funktinoniert das nicht er hängt sich immer auf!
WEr weiß Rat ?
Vielen Dank

Zeitprogrammierung / Countdown

Zeitprogrammierung / Countdown

Forumregeln